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Introduzione 


Questo volumetto, ancor prima di costituire una pura e semplice raccol¬ 
ta di interessanti programmi di utilità e di gioco, è una guida didattica 
alla programmazione in linguaggio Basic del personal computer Com¬ 
modore 64. 

Chi si avvicina per la prima volta ad un computer non deve essere co¬ 
stretto ad esercitare sulla tastiera la propria immaginazione, oltre che 
le proprie dita, per capire come funziona e a cosa serve ciò che ha di fron¬ 
te: una preventiva illustrazione delle funzionalità associate ai tasti può 
risparmiare ore di tentativi, il più delle volte sterili e destinati a non la¬ 
sciare un’idea chiara di ciò che si è fatto in realtà. 

Per questi motivi si è ritenuto utile, dopo una descrizione della configu¬ 
razione del sistema Commodore 64, passare ad un accurato e dettagliato 
esame della tastiera, impiegando estesamente la parte illustrativa per 
facilitare l'individuazione dei singoli tasti e per insegnare ad attivarli nelle 
diverse modalità di funzionamento. 

Anche l’impiego del video può presentare difficoltà che sono spesso sot¬ 
tovalutate da chi redige i manuali ufficiali che corredano l’hardware. Nel 
paragrafo dedicato al video sono illustrati con particolare attenzione le 
funzioni di controllo del cursore e l’impiego delle notevoli possibilità cro¬ 
matiche del Commodore 64, utilizzando ancora una volta estesamente, 
oltre all’informazione scritta, l'immagine fotografica. L’esposizione re¬ 
lativa alla gestione del video e alla grafica comprende anche la descri¬ 
zione delle mappe di memoria del video, passo fondamentale per entra¬ 
re nelle problematiche della «computer-grafica». 

Tra le molteplici attitudini e possibilità del Commodore 64 è inclusa an¬ 
che la capacità di emettere una vasta gamma di note musicali, suoni e 
rumori. Che un computer sia in grado di suonare ormai non stupisce più 
nessuno, ma si deve essere ben consci del fatto che anche il computer 
più sofisticato, come del resto qualsiasi strumento musicale, non può suo¬ 
nare «da solo»: è necessario che esegua un programma appositamente 
preparato. 

L’ultimo paragrafo della parte descrittiva dell’hardware è dedicato dun¬ 
que al suono, e consentirà di acquisire tutti gli elementi necessari per 
utilizzare anche questa attitudine del Commodore 64 nelle nostre espe¬ 
rienze di «computer-music». 

La prima parte del manuale si conclude con un’esposizione completa ed 
esauriente, ma soprattutto facilmente comprensibile, del linguaggio Ba¬ 
sic utilizzato dal Commodore 64. Sono state distinte funzionalmente e 
in modo progressivo le descrizioni delle variabili, degli operatori, dei co¬ 
mandi, delle istruzioni e delle funzioni del Basic. Al di là delle tendenze 
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più tradizionali, spesso improntate ad un freddo schematismo, si sono 
adottate una classificazione ed una sequenzialità specificamente orien¬ 
tate al programmatore, con l’intento di facilitare la comprensione del lin¬ 
guaggio e di costituire un utile strumento di consultazione. 

La seconda e principale parte del manuale è dedicata invece allo svilup¬ 
po delle metodologie proprie della programmazione attraverso l’impo¬ 
stazione e la soluzione logica di venti problemi concreti. 

Lo sviluppo di un programma si articola in tre fasi distinte: l'analisi del 
problema che si vuole risolvere, l’organizzazione logica nei diagrammi 
di flusso del metodo di soluzione prescelto, la minutazione del program¬ 
ma nel linguaggio di programmazione che si intende adottare. Nelle ven¬ 
ti applicazioni che presentiamo, ogni singola fase è affrontata separata- 
mente in maniera specifica e dettagliata, così da fornire al lettore un qua¬ 
dro metodologico completo del procedimento da seguire. 

Analisi del 
problema 

In questa fase sono anzitutto enumerati i requisiti del programma che 
si intende realizzare. In base ad essi sono successivamente individuati 
e descritti i metodi (algoritmi) di soluzione, adottando una forma di espo¬ 
sizione per quanto possibile chiara e discorsiva. 

Diagrammi 
di flusso 

L'algoritmo di soluzione è organizzato in maniera logica e sequenziale, 
seguendo per quanto possibile i canoni della programmazione struttu¬ 
rata. Ogni diagramma di flusso è puntualmente commentato a margine, 
per meglio chiarire il significato delle soluzioni adottate e le funzionali¬ 
tà dell'algoritmo. 

_ Il programma 

pSL 

Questa parte riguarda la traduzione dei diagrammi di flusso nelle istru¬ 
zioni previste dal Basic, riportando per esteso i listati completi dei pro¬ 
grammi e inserendo un duplice livello di commento: un frequente inseri¬ 
mento nei listati delle istruzioni di commento e una descrizione a margi¬ 
ne, discorsiva e puntuale, delle singole istruzioni utilizzate. 

Non è forse inutile sottolineare, prima di concludere, il carattere prevalen¬ 
temente didattico di questo manuale, che tuttavia, anziché perdersi dietro 
tediose e (perché no) imbarazzanti dissertazioni sui microcircuiti, può di¬ 
ventare il tramite amichevole e divertente fra una persona e una macchina. 







1 






















































































Il personal computer 
Commodore 64 

Così come il suo fratello minore VIC-20, il Commodore 64, che d’ora in 
poi chiameremo più semplicemente CBM-64, è un home computer, un cal¬ 
colatore destinato ad applicazioni «domestiche», cioè di limitata comples¬ 
sità. Il CBM-64 è composto da una unità fisica comprendente: 

■ la tastiera, utilizzata per il dialogo con la macchina 

■ la CPU (Central Processing Unit, unità centrale di elaborazione), la par¬ 
te della macchina che esegue fisicamente i programmi 

■ la memoria, divisa in ROM (Read Only Memory), contenente il program¬ 
ma di sistema che gestisce le operazioni eseguite dalla macchina, e in 
RAM (Random Access Memory), usata per i programmi scritti dagli 
utenti. La memoria del CBM-64 ha una capacità di 64 kbytes. 

Il CBM-64 può essere connesso o ad un apposito monitor oppure, attra¬ 
verso un modulatore a radiofrequenza incluso nello chassis della tastie¬ 
ra, ad un comune televisore a colori, che può sostituire egregiamente il 
monitor del calcolatore, anche se con una perdita di qualità deH’imma- 
gine. Il computer utilizza questo componente per comunicare messaggi, 
per evidenziare i risultati dell’esecuzione di un programma e, in genera¬ 
le, per visualizzare tutto quanto viene digitato dall’operatore sulla tastie¬ 
ra. In quest’ultimo caso si dice che sul video compare l’«eco» di quanto 
viene digitato. 

Questa macchina può essere inoltre dotata di memorie non volatili a 
supporto magnetico, come cassette o floppy-disks; le cassette sono 
utilizzabili mediante un apposito registratore Datassette, mentre i floppy- 
disks richiedono una diversa e più complessa apparecchiatura detta 

driver. 

I due tipi di supporto magnetico differiscono essenzialmente per la di¬ 
versa velocità con cui si possono scrivere o leggere le informazioni (la 
gestione del dischetto è molto più veloce di quella della cassetta). 

Allo stesso scopo sono adottate cartucce di espansione di memoria ROM 
contenenti programmi di glosse dimensioni che potrebbero essere cari¬ 
cati con difficoltà nella memoria della configurazione base. Le cartucce 
di espansione vanno inserite nello speciale slot (alloggiamento) apposi¬ 
tamente previsto sul retro della tastiera. 

Al fine di ovviare alla necessità di avere copie su carta di quanto carica¬ 
to nella macchina, il CBM-64 è dotato di un dispositivo (bus seriale) al 
quale è possibile collegare una o più stampanti, e dispone inoltre di una 
presa (interfaccia IEEE-488) che consente il collegamento con altre ap¬ 
parecchiature di impiego particolare (plotter, cioè tracciatori di grafici, 
strumenti di laboratorio, ecc.). 

Le potenzialità del CBM-64 possono essere ulteriormente espanse colle¬ 
gandolo con altri computer più potenti. Tale collegamento può essere sta¬ 
bilito attraverso le normali linee telefoniche, ma è necessario in tal caso 
inserire tra il computer e la rete telefonica un dispositivo chiamato mo¬ 
dem (modulatore-demodulatore), che elabora i segnali digitali in uscita 
dal CBM-64 per renderli idonei alla trasmissione sulla linea telefonica 
e viceversa. 

II CBM-64 utilizza la forma di trasmissione più semplice e più diffusa, 
denominata protocollo RS-232, e pertanto può essere collegato alla mag¬ 
gior parte dei calcolatori esistenti. 

Infine è possibile corredare il CBM-64 di dispositivi di comando, come 
i joystiks, i paddles e le penne ottiche, che trovano impiego nei videogio¬ 
chi e in altre applicazioni più impegnative. 
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La tastiera 

La tastiera del CBM-64 è analoga a quella di una normale macchina per 
scrivere. 

I tasti si possono suddividere in quattro categorie: 

■ tasti di scrittura (lettere, numeri, caratteri speciali) 

■ tasti grafici 

■ tasti di controllo, utilizzati per inviare alcuni comandi al CBM-64 

■ tasti funzionali, che possono attivare determinate azioni all'interno di 
programmi scritti dall’utente. 

I diversi caratteri rappresentati su un tasto possono essere selezionati 
per mezzo dei tasti SHIFT e COMMODORE ( C* ). 

Bisogna chiarire subito che uno stesso tasto (fisico) può appartenere ad 
una o a’più di una delle categorie enumerate. Ad esempio, quasi tutti i 
tasti che producono caratteri di scrittura recano impressi sulla faccia 
anteriore anche due caratteri grafici, che possono essere attivati premen¬ 
do quel tasto in concomitanza con un opportuno tasto di controllo. 
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producono caratteri di scrittura, cioè lettere, numeri e caratteri speciali 
producono caratteri grafici, utilizzabili per comporre disegni 
modificano il funzionamento della macchina 

possono attivare, all’interno di una data elaborazione, particolari azioni che l’u¬ 
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I tasti di scrittura hanno un funzionamento molto simile a quello dei ta¬ 
sti di una macchina per scrivere. 

La semplice pressione di un tasto di scrittura produce la comparsa sul 
video, nella posizione occupata dal cursore, del carattere associato al ta¬ 
sto premuto. Contemporaneamente il cursore si sposta di un posto a de¬ 
stra, segnando il punto in cui avverrà la prossima immissione. 

I tasti di scrittura occupano la zona della tastiera evidenziata in colore 
neH’illustrazione a margine. Nella quasi totalità dei casi i caratteri di scrit¬ 
tura sono impressi sulla faccia superiore del tasto, ad eccezione di quel¬ 
lo che attiva il carattere n, che reca impresso il carattere sulla faccia an¬ 
teriore. In generale, l'operazione che consente di ottenere sul video un 
carattere di scrittura è diversa a seconda della posizione che occupa sul 
tasto il carattere desiderato. 



■ Per ottenere il carattere in posizione A è sufficiente premere sempli¬ 
cemente il tasto. In questo modo si possono digitare, ad esempio, i 
caratteri A, B, C, ecc. 

■ Per ottenere il carattere in posizione B è necessario tenere premuto 
il tasto SHIFT e contemporaneamente premere quello desiderato. In 
questo modo si possono avere, ad esempio, i caratteri ! " # ecc. 

■ Per ottenere il carattere in posizione C è necessario tenere premuto 
il tasto SHIFT e premere contemporaneamente quello che reca il ca¬ 
rattere. L’unico carattere di scrittura che può essere ottenuto in questo 
modo è il pi greco (n). 

La prima cosa che si nota digitando i caratteri di scrittura è che il CBM-64 
visualizza le lettere dell’alfabeto in maiuscolo (stato maiuscole/grafici). 
Questa caratteristica è necessaria perché molti linguaggi di programma¬ 
zione prevedono l’uso delle lettere maiuscole per i comandi e le istruzio¬ 
ni. Il CBM-64 può tuttavia entrare in un modo di funzionamento partico¬ 
lare, nel quale è possibile utilizzare maiuscole e minuscole. Per entrare 
nello stato maiuscole/minuscole (chiamato anche stato testo, proprio per¬ 
ché più adatto alla composizione dei testi) è sufficiente tenere premuto 
il tasto SHIFT e premere contemporaneamente il tasto COMMODORE. 
Una volta entrati in questo stato, i caratteri di scrittura digitati sono vi¬ 
sualizzati in minuscolo, a meno che non venga premuto contemporanea¬ 
mente alla digitazione del tasto-carattere il tasto SHIFT, proprio come 
accade in una macchina per scrivere. 

Per uscire dallo stato testo è sufficiente ripetere la stessa operazione ese¬ 
guita per entrarvi. 
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Una caratteristica molto importante del CBM-64 è l’insieme dei caratte¬ 
ri grafici previsti sulla tastiera, utilizzabili per comporre sul video gra¬ 
fici, disegni e tabelle. 

I caratteri grafici sono attivati dai tasti che occupano la zona evidenzia¬ 
ta in colore nell'illustrazione a margine. 

Ciascuno dei tasti indicati reca impressi sulla faccia anteriore due ca¬ 
ratteri grafici, che nella riproduzione illustrativa riportata qui a margi¬ 
ne abbiamo sostituito, a titolo di esempio, con le lettere A e B, facendo 
così riferimento solo alla loro posizione sul tasto. 



■ Per attivare il carattere che occupa la posizione A è necessario tenere 
premuto il tasto COMMODORE e premere contemporaneamente quello 
desiderato. 

■ Per ottenere il carattere che occupa la posizione B è necessario tene¬ 
re premuto il tasto SHIFT e premere contemporaneamente quello de¬ 
siderato. 
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La tastiera del CBM-64, come quella di qualsiasi altro computer, include 
un certo numero di tasti che, se premuti, non attivano caratteri di scrit¬ 
tura o grafici. 

Questi tasti, chiamati tasti di controllo, generano all’atto della pressio¬ 
ne un segnale (di controllo, appunto), che in genere chiede alla macchina 
di modificare il suo funzionamento. 

Si tratta, in altri termini, di un insieme di tasti la cui pressione consente 
all’operatore di «governare» la macchina. 

I tasti SHIFT, in numero di due, uno a sinistra e l’altro a destra, coprono 
diverse funzioni. La pressione del tasto SHIFT consente: 

■ di attivare il carattere n 

■ di ottenere i caratteri di scrittura impressi in alto sulla parte superio¬ 
re dei tasti (p. es. ! $ ’’ ecc.) 

■ di ottenere i caratteri grafici impressi a destra sulla superficie ante¬ 
riore dei tasti 

■ in concomitanza con la pressione del tasto COMMODORE, di entrare 
nello stato testo e di uscirne 

■ di ottenere le lettere maiuscole quando si opera in modalità testo 

■ di selezionare una delle due funzioni proprie di ciascun tasto funzionale 

■ di selezionare una delle due funzioni proprie di ciascun tasto di con¬ 
trollo. 

II tasto SHIFT LOCK serve per conservare indefinitamente la situazio¬ 
ne che si determina quando è premuto il tasto SHIFT. 

Può infatti capitare di dover digitare una lunga sequenza di caratteri che 
richiedono la contemporanea pressione del tasto SHIFT: ad esempio, i 
caratteri grafici impressi a destra sulla superficie anteriore dei tasti. In 
questi casi, si può premere lo SHIFT LOCK, che agisce come un inter¬ 
ruttore a bottone: fin quando non si «spegne» questo interruttore è co¬ 
me se il tasto SHIFT fosse premuto. 

Il tasto COMMODORE, che è una caratteristica specifica del CBM-64 e 
delle macchine Commodore, svolge tre funzioni di selezione: 

■ consente di attivare i caratteri grafici che si trovano a sinistra sulla 
superficie anteriore dei tasti (successione COMMODORE-(-tasto) 

■ consente di passare nel modo di funzionamento maiuscole/minuscole 
(successione COMMODORE-!-SHIFT) e viceversa 

■ consente di selezionare la seconda serie di 8 colori: tenendo premuto 
il tasto COMMODORE e uno dei tasti di selezione colore si ottiene l’u¬ 
so di altre tonalità. 

Il tasto CTRL svolge le seguenti funzioni: 

■ consente di attivare i tasti di controllo del colore in scrittura sul vi¬ 
deo. In condizioni normali, il CBM-64 visualizza i caratteri in azzurro 
su fondo blu. Se l'operatore, tenendo premuto il tasto CTRL, preme 
uno dei tasti di controllo del colore, a partire da questo momento i 
caratteri che verranno digitati saranno visualizzati, anziché in azzur¬ 
ro, nel colore selezionato 

■ consente di attivare i tasti REVERSE (RVS ON e RVS OFF) che atti¬ 
vano e disattivano la visualizzazione invertita. Se l’operatore, tenen¬ 
do premuto il tasto CTRL, preme il tasto RVS ON, attiva la visualizza¬ 
zione invertita: a partire da questo momento tutti i caratteri che sa¬ 
ranno digitati appariranno scritti in blu su un rettangolino azzurro 

■ consente di rallentare l’esecuzione dei programmi: se si tiene premu- 
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to il tasto CTRL mentre il CBM-64 sta eseguendo un programma, la 
velocità di esecuzione diminuisce 

■ consente all’operatore di definire comandi di controllo propri, che pos¬ 
sono essere inclusi in una qualsiasi applicazione 

■ è utilizzato da alcuni programmi caricati su cartucce ROM per svol¬ 
gere funzioni particolari. 

I tasti di controllo del colore sono in numero di otto, e si trovano nella 
prima fila della tastiera. Si tratta degli stessi tasti che, con la semplice 
pressione, attivano la visualizzazione dei numeri da 1 a 8. 

I segnali di controllo del colore sono invece attivati premendo questi tasti 
in concomitanza con il tasto CTRL o con il tasto COMMODORE: ciò per¬ 
mette di selezionare 16 colori. Se, tenendo premuto uno di questi due tasti, 
si preme uno dei tasti di controllo colore, a partire da quel momento tutti i 
caratteri digitati sulla tastiera appariranno sul video nel colore selezionato. 
In particolare: 
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I tasti RVS ON e RVS OFF attivano e disattivano la funzione REVERSE, 
che determina la visualizzazione dei caratteri «in negativo». Se l’opera¬ 
tore tiene premuto il tasto CTRL e preme contemporaneamente il tasto 
RVS ON, a partire da questo momento i caratteri digitati appariranno 
sullo schermo in blu su fondo azzurro. Questa modalità di funzionamen¬ 
to proseguirà fin quando, premendo contemporaneamente il tasto CTRL 
e il tasto RVS OFF, non verrà disattivata la funzione REVERSE. 

II tasto RETURN consente di restituire alla macchina il controllo che l’o¬ 
peratore assume quando digita una parola, una riga, una frase o un’i¬ 
struzione. Restituire il controllo significa consentire alla macchina di ela¬ 
borare quanto l’operatore ha digitato sulla tastiera. È necessario premere 
il tasto RETURN dopo aver digitato ciascuna istruzione di un program¬ 
ma. Solo all’atto dell’attivazione del tasto il CBM-64 può leggere, ricono¬ 
scere, elaborare ed eventualmente eseguire l’istruzione, che altrimenti 
è solo visualizzata sullo schermo. 

I due tasti CRSR servono per spostare il cursore (CURSOR) all’interno 
della zona del video nella quale è consentito l'inserimento dei caratteri. 
Un qualsiasi carattere che venga digitato sulla tastiera va sempre ad oc¬ 
cupare la posizione indicata dal cursore. Se si vuole modificare la posi¬ 
zione d'inserimento rispetto a quella «puntata» dal cursore è quindi ne¬ 
cessario spostare quest’ultimo nella posizione desiderata. Il primo tasto 
consente lo spostamento verticale del cursore, il secondo quello orizzon¬ 
tale. La direzione dello spostamento (verso l’alto o verso il basso, verso 
sinistra o verso destra) è indicata dalle frecce. Per effettuare uno sposta¬ 
mento verso una direzione indicata dalla freccia che si trova sotto la si- 
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già CRSR, è sufficiente la semplice pressione del tasto; per effettuare in¬ 
vece uno spostamento nella direzione indicata dalla freccia che si trova 
sopra la sigla CRSR, è necessario premere contemporaneamente il tasto 
SHIFT. Le possibilità di spostamento del cursore sono preziose quando 
si deve correggere una parola, un’intera frase o un’istruzione visualizza¬ 
ta. È sufficiente posizionare il cursore sopra i caratteri errati e digitare 
quelli giusti. 

Al tasto CLR/HOME sono associate due diverse funzioni, contrassegna¬ 
te dalle sigle CLR (contrazione di CLEAR) e HOME. 

La funzione HOME (casa) si attiva alla semplice pressione del tasto e pro¬ 
duce lo spostamento istantaneo del cursore nella prima casella in alto 
a sinistra sul video (la «casa» del cursore). Ciò che è visualizzato non vie¬ 
ne cancellato. Per attivare invece la funzione CLEAR (cancellazione) è ne¬ 
cessario premere contemporaneamente il tasto SHIFT. Il suo effetto è 
quello di cancellare tutto ciò che appare sul video, riportando il cursore 
nella prima casella in alto a sinistra. 

Al tasto INST/DEL sono associate due diverse funzioni (INSERT, inseri¬ 
sci, e DELETE, cancella). La funzione DEL è attivata dalla semplice pres¬ 
sione del tasto, e causa la cancellazione sul video del primo carattere al¬ 
la sinistra del cursore, con l'eliminazione automatica dello spazio che 
ne risulta. La funzione INSERT causa invece l’inserimento di uno spazio 
in bianco nella posizione del cursore. Si attiva tenendo premuto il tasto 
SHIFT e premendo contemporaneamente il tasto INST/DEL. 

Il tasto RUN/STOP attiva la funzione di INTERRUPT (interruzione), or¬ 
dina cioè al CBM-64 di interrompere ciò che sta facendo e di restituire 
il controllo all’operatore. 

A questo punto, il CBM-64, attraverso il video, invia all’operatore un mes¬ 
saggio per avvertirlo che l’esecuzione è stata interrotta, specificando inol¬ 
tre a che punto del programma (numero dell'istruzione) si è verificata 
l’interruzione. Sul video ricompare il cursore, che non è presente in fase 
di esecuzione. 

La pressione del tasto RUN/STOP in concomitanza con lo SHIFT attiva 
il codice LOAD (carica), che ordina al CBM-64 di iniziare il caricamento 
in memoria di un programma registrato su nastro. 

Se si tiene premuto il tasto RUN/STOP e contemporaneamente si preme 
il RESTORE, si invia al CBM-64 un segnale che attiva il ripristino del 
computer nella condizione che esisteva immediatamente dopo l’accen¬ 
sione, con il vantaggio che eventuali programmi caricati in memoria non 
vengono persi. Il codice RESTORE genera in altri termini un’operazione 
di pulizia della memoria che consente di rieseguire da capo un dato pro¬ 
gramma, o di listarlo. 


Tasti funzionali 
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I tasti funzionali, chiamati anche tasti di funzione programmabili, sono 
presenti sulla tastiera del CBM-64 in numero di quattro all'estrema destra. 
A ciascuno di essi possono essere associate, mediante apposito program¬ 
ma, due diverse funzioni: la prima sarà attivata alla semplice pressione di 
quel tasto, mentre per attivare la seconda sarà necessario premere contem¬ 
poraneamente anche lo SHIFT. Le funzioni attivabili nel primo modo sono 
quelle poste sulla faccia superiore del tasto (fi, f3, f5, f7); nel secondo 
modo sono attivate quelle poste sulla faccia anteriore (f2, f4, f6, f8). 

I tasti funzionali sono utilizzati anche da molti programmi caricati sulle 
cartucce ROM ad innesto per consentire all’utente di effettuare partico¬ 
lari scelte. 
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Il video 

Il CBM-64 è in grado di gestire un'immagine video a colori in cui posso¬ 
no entrare 25 righe di 40 caratteri ciascuna. Si dice anche, con maggior 
rigore, che si tratta di un video a 25 righe per 40 colonne. 

Il video è utilizzato come periferica di uscita (output) standard: ciò si¬ 
gnifica che, per rispondere a comandi e istruzioni, il CBM-64 utilizzerà 
sempre il video, a meno di non chiedergli esplicitamente, tramite appo¬ 
siti comandi, di utilizzare altre periferiche (per esempio, la stampante). 
All’atto dell’accensione del computer appare sul video un riquadro blu 
(la zona in cui è possibile inserire caratteri) contornato da un margine 
azzurro. In alto appare il messaggio ’’**** COMMODORE 64 BASIC 
V2 * * * * 64K RAM SYSTEM 38911 BASIC BYTES FREE”, scritto in 
azzurro nel riquadro blu, che dà all’operatore alcune informazioni circa 
il linguaggio che deve utilizzare e la capacità della memoria RAM di cui 
dispone. Subito sotto si può scorgere il messaggio READY e il cursore. 
Se vogliamo iniziare a digitare qualcosa possiamo ordinare al CBM-64 
di cancellare il video attivando la sequenza di tasti SHIFT + CLR/HOME. 


Il cursore 


La risposta fornita dal 
CBM-64 quando si 
impiegano i tasti di 
controllo del cursore fra 
apici, ad esempio nelle 
istruzioni PRINT. 


Il cursore appare ora come un rettangolo lampeggiante di colore azzur¬ 
ro che occupa la prima casella in alto a sinistra (home). Esso indica, in 
ogni momento, la posizione in cui sarà inserito il primo carattere che verrà 
digitato. Ad ogni immissione il cursore si sposterà di una posizione ver¬ 
so destra, fino a raggiungere il margine destro della zona blu, quindi tor¬ 
nerà automaticamente a capo della riga successiva, pronto ad accettare 
nuove immissioni. 

La posizione di inserimento dei caratteri può essere modificata a piace¬ 
re spostando il cursore mediante gli appositi tasti di controllo (CRSR). 
Dobbiamo solo notare che, se premiamo uno dei tasti di controllo del cur¬ 
sore dopo aver digitato un doppio apice, il CBM-64 evidenzia uno dei ca¬ 
ratteri mostrati nella foto sotto. 
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L'impiego dei tasti di controllo del cursore fra apici si presenta allorché 
si desidera spostare il cursore durante l'esecuzione di un programma con 
un’istruzione PRINT. 


Il Colore Illustrando le funzioni dei tasti di controllo del CBM-64, si è già parlato 

della possibilità di visualizzare i caratteri digitati in sedici colori diver¬ 
si, in positivo o invertiti; ma le possibilità cromatiche del calcolatore non 
si fermano alle funzioni RVS e ai tasti di controllo del colorè. 

È infatti possibile variare i colori del margine del video e del riquadro 
che delimita la zona riservata alle immissioni: il calcolatore può adotta¬ 
re per il margine e per lo schermo sedici colori diversi. I cambiamenti 
di colore si attivano immettendo due appositi comandi, che hanno la se¬ 
guente sintassi: 


0 

NERO 

1 

BIANCO 

2 

ROSSO 

3 

BLU-VERDE 

4 

PORPORA 

5 

VERDE 

6 

BLU 

7 

GIALLO 

8 

ARANCIONE 

9 

MARRONE 

10 

ROSSO CHIARO 

11 

GRIGIO SCURO 

12 

GRIGIO 

13 

VERDE CHIARO 

14 

AZZURRO 

15 

GRIGIO CHIARO 


POKE 53280.X per il colore del margine 

POKE 53281,Y per il colore del riquadro 

dove X e Y possono assumere diversi valori. 

Il significato del comando e il suo funzionamento richiedono qualche pre¬ 
cisazione sulla struttura della memoria del CBM-64. 

Si può immaginare quest’ultima come un grande tabellone costituito da 
tante celle numerate (bytes). La presenza di un certo valore in una deter¬ 
minata cella ha per il calcolatore un preciso significato, che dipende dal 
valore che è stato immesso in quella cella. 

Con i comandi POKE 53280,X e POKE 5328l.Y si ordina al CBM-64 di 
inserire nelle rispettive celle di memoria i valori numerici di X ed Y. 
Quando il CBM-64 è acceso, un programma di sistema legge regolarmen¬ 
te il contenuto delle celle di memoria preposte al controllo delle diverse 
funzioni e, a seconda del valore numerico che trova nelle celle 53280 e 
53281, attiva la corrispondente combinazione di colori. 

I valori numerici da inserire al posto delle X e delle Y per avere le varie 
combinazioni di colore sono elencati nella tabella riportata a fianco. 


I colori che il CBM-64 può 
utilizzare per scrivere i 
caratteri. A fianco sono 
elencati i tasti di controllo 
da premere per selezionarli. 
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L’impiego del colore 
nei programmi 


Proviamo ora a variare i colori del nostro video in modo da ottenere mar¬ 
gine e schermo neri, con i caratteri visualizzati in bianco. Dovremo allo¬ 
ra introdurre la sequenza di comandi 

POKE 53280,0 RETURN 
POKE 53281,0 RETURN 

A questo punto lo schermo è tutto nero, con il cursore in azzurro. Non 
ci rimane che digitare 

CTRL+WHT 

e il cursore diventa bianco: il nostro video ha assunto ora un’aria molto 
professionale. 

Per tornare alla normale combinazione di colori è necessario immettere 
la seguente sequenza di comandi 

POKE 53280,14 RETURN 
POKE 53281,6 RETURN 
C= +BLU 


Per poter riprodurre su video un'immagine a colori senza doverla ricom¬ 
porre ogni volta da capo è necessario scrivere un programma che produ¬ 
ca la visualizzazione dei caratteri grafici utilizzati nel giusto colore e nella 
giusta posizione. Programmi di questo genere sono di solito molto sem¬ 
plici ed utilizzano una sola istruzione: la PRINT. 

Scrivendo l'istruzione 

1 PRINT "ABCD..." RETURN 

abbiamo in realtà immesso un programma che causa la visualizzazione 
(PRINT) sul video di tutto ciò che è compreso fra i doppi apici. Il numero 
1 serve al CBM-64, in presenza di più istruzioni, per capire quale di esse 
deve eseguire per prima. 

Per avere la scritta ABCD... su video occorre ora mandare in esecuzione 
il programma, e ciò si ottiene inserendo il comando 

RUN RETURN 

Appena premuto il tasto RETURN, dopo aver digitato la parola RUN, il 
calcolatore esegue il programma, e sul video appaiono la scritta che ave¬ 
vamo incluso nell’istruzione 1 e il messaggio READY, col quale il CBM-64 
ci avverte che ha eseguito il nostro comando RUN. 

Se si vuole stampare una sequenza di caratteri (di scrittura o grafici) in 
un colore diverso da quello che il CBM-64 utilizza abitualmente, è neces¬ 
sario inserire nell’istruzione di stampa, prima del carattere, il codice di 
controllo del colore che si vuole utilizzare. 

Ad esempio, se si vuole scrivere la sequenza ABCD... in rosso occorre di¬ 
gitare 

1 PRINT "CTRL +RED ABCD...” RETURN 

L’eco della sequenza dei tasti di controllo CTRL+RED che attivano la 
visualizzazione in rosso è rappresentata sul video col simbolo E3 (simbo¬ 
lo della sterlina invertito), per cui ciò che vedremo comparire è 

1 PRINT ”□ ABCD...” 
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La risposta fornita dal 
CBM-64 all'impiego fra 
apici dei tasti di controllo 
del colore. 


Le mappe di memoria 
del video 


Mandando in esecuzione questo programma (comando RUN) la scritta 
ABCD... sarà visualizzata dal CBM-64 in rosso. 

Quando è utilizzato fra i doppi apici, cioè all’interno di un’istruzione 
PRINT, ogni comando di controllo del colore produce sul video un’eco 
diversa, come si può verificare nell’immagine video riportata qui sotto. 



L’immagine video è gestita dal CBM-64 grazie a due mappe di memoria, 
l'una preposta alla memorizzazione dei codici dei caratteri da visualiz¬ 
zare, l’altra a quella dei codici dei colori che detti caratteri devono ave¬ 
re. Ciò significa che il calcolatore deve tenere costantemente aggiornate 
in memoria le due tabelle riportate nella pagina a fianco. 

Le due mappe hanno dimensioni 25x40 = 1000 bytes ciascuna (uno per 
ogni posizione sul video). La mappa dei colori è memorizzata a partire 
dalla locazione 55296, mentre la mappa di memoria dei caratteri inizia 
alla locazione 1024.1 numeri indicati consentono di ricavare gli indirizzi 
delle celle di memoria che contengono, per ciascuna posizione, il codice 
del carattere che vi deve comparire (TAB. 1) e il codice del colore (TAB. 
2). I numeri a sinistra indicano gli indirizzi delle celle che controllano 
la prima colonna del video; gli indirizzi delle celle che controllano una 
delle caselle interne si possono ottenere sommando i numeri della riga 
e della colonna di cui la casella interna in questione fa parte. Tanto per 
fare un esempio, quanto è visualizzato nella prima casella in alto a sini¬ 
stra del video dipende: 


■ dal contenuto della locazione di memoria 1024 per quanto riguarda 
il carattere visualizzato 

■ dal contenuto della locazione di memoria 55296 per quanto riguarda 
il colore del carattere visualizzato. 


Le celle di memoria possono contenere solo numeri, perciò è chiaro che 
caratteri e colori devono essere memorizzati sotto forma di codici nu¬ 
merici. Il valore numerico da inserire in una data cella di memoria per 
ottenere nella posizione corrispondente del video un determinato ca¬ 


lò 










TAB. 1 MAPPA DI MEMORIA DEI CARATTERI 
COLONNE 


0 10 20 30 39 



55296 

55336 

55376 

55416 

55456 

55496 

55536 

55576 

55616 

55656 

55696 

55736 

55776 

55816 

55856 

55896 

55936 

55976 

56016 

56056 

56096 

56136 

56176 

56216 

56256 


TAB. 2 MAPPA DI MEMORIA DEI COLORI 
COLONNE 

10 20 30 


39 


10 JJ 


20 


24 


rattere si può desumere dalla tabella di pag. 18, dove sono indicati 

■ i caratteri rappresentabili in modalità maiuscole/grafici (serie 1) 

■ i caratteri rappresentabili in modalità testo (serie 2) 

■ i corrispondenti codici numerici (POKE). 

I valori numerici che selezionano i diversi colori sono riportati nella ta¬ 
bella di pag. 14. La conoscenza delle mappe di memoria del video con¬ 
sente di comporre grafici e disegni assegnando direttamente il contenu¬ 
to di ciascuna casella del video cor, l'istruzione POKE. Se ad esempio vo¬ 
gliamo visualizzare nella prima posizione in alto a sinistra del video una 
pallina (codice 81 della tabella dei caratteri) di colore rosso (codice 2 della 
tabella dei colori), dovremo immettere i seguenti comandi: 

POKE 55296,2 attiva il colore rosso 

POKE 1024,81 attiva la visualizzazione del carattere «pallina» 
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1 codici da 128 a 255 sono le immagini in negativo dei codici da 0 a 127. 








La grafica II CBM-64 gestisce l’insieme di 256 caratteri standard riprodotto qui so¬ 

pra. La configurazione grafica di ogni singolo carattere è immagazzina¬ 
ta nella memoria ROM a partire da un indirizzo di base, memorizzato 
nel registro 53272. Ad ogni carattere è associato un insieme di 8 bytes 
consecutivi che ne definiscono la rappresentazione sul video. Ad esem¬ 
pio, la rappresentazione in memoria ROM del carattere B sarà definita 
come indicato nella figura a margine della pagina a fianco: ad ogni bit 
posto a 1 corrisponderà un punto scuro sul video, mentre ai bits posti 
a 0 corrisponderà un punto chiaro. 

Il CBM-64 offre all'utente la possibilità di ridefinire graficamente i ca¬ 
ratteri all’interno della memoria accessibile (RAM), in modo da ottenere 
un insieme personalizzato. Per fare questo è necessario trasferire la 
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1 
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5 

0 

0 
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0 
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0 
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1 

1 

1 

0 

0 

7 

0 

0 

0 

0 

0 

0 

0 
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rappresentazione dei caratteri standard che si vogliono conservare dal¬ 
la ROM alla RAM, quindi definire all’interno di quest’ultima la forma 
dei nuovi caratteri e poi comunicare al sistema che deve prelevare le in¬ 
formazioni relative ai caratteri da lì, e non più dalla ROM. Una precau¬ 
zione da prendere prima di definire il nuovo insieme di caratteri consi¬ 
ste nel proteggere la zona di memoria che si vuole riservare per questa 
operazione dalla sovrapposizione del programma Basic, in quanto anch'es- 
so usa la memoria RAM. Questo si ottiene con l’istruzione 

POKE 52, 48: POKE 56, 48: CLR 

Come si è detto, il CBM-64 è provvisto di un registro programmabile (in¬ 
dirizzo 53272) che punta alla zona di memoria contenente le definizioni 
dei caratteri; è quindi sufficiente variare il contenuto di tale registro me¬ 
diante l’istruzione POKE, affinché il sistema possa prelevare la nuova 
rappresentazione dei caratteri dalla zona di memoria RAM il cui indiriz¬ 
zo di partenza sarà specificato nella POKE stessa. 

Il punto di partenza più comodo in cui porre l’insieme dei caratteri per¬ 
sonalizzati è a partire dalla locazione 12288. 

La nuova rappresentazione di un carattere può essere definita scriven¬ 
do dapprima una nuova matrice 8x8 che rappresenti la nuova forma del 
carattere sullo schermo, caricando poi questa matrice nelle locazioni che 
descrivono il carattere in questione. 

Immaginiamo ad esempio di voler costruire un insieme di caratteri per¬ 
sonalizzato contenente i primi 64 caratteri standard, in cui la rappresen¬ 
tazione grafica del carattere T sia sostituita con un omino. 
Cominceremo con l’impostare le maiuscole e col riservare la zona di me¬ 
moria per il nuovo insieme di caratteri tramite le istruzioni 


5 PRINT CHR$(142) 

10 POKE 52, 48: POKE 56, 48: CLR 


Sarà poi necessario disattivare le funzioni di I/O, per permettere di posi¬ 
zionare la ROM caratteri a partire dalla locazione 53248; queste due ope¬ 
razioni vengono eseguite in sequenza tramite le istruzioni 

20 POKE 56334,PEEK(56334) AND 254 
30 POKE l.PEEK (1) AND 251 

Trasferiremo ora i primi 64 caratteri standard di scrittura (maiuscoli) 
nella memoria RAM a partire dalla locazione 12288 con la seguente istru¬ 
zione: 


40 FOR 1 = 0 TO 511: POKE 1+12288,PEEK (I + 53248):NEXT I 

Così facendo preleveremo i bytes memorizzati nelle locazioni da 53248 
a 53759 per copiarli in quelle da 12288 a 12799. Ora dovremo riposizio¬ 
nare la ROM di I/O (a partire dalla locazione 53248) e riattivare la tastie¬ 
ra con i seguenti comandi 

50 POKE (l).PEEK(l) OR 4 
60 POKE 56334,PEEK (56334) OR 1 

Dovremo poi indicare al sistema che deve prelevare la rappresenta¬ 
zione dei caratteri a partire dalla locazione di memoria 12288, modifi¬ 
cando i 4 bits meno significativi della locazione 53272 (registro punta¬ 
tore) con il valore 12 (indirizzo relativo alla locazione 12288), mediante 
l'istruzione 
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70 POKE 53272, (PEEK (53272) AND 240)+12 


A questo punto definiremo il nuovo carattere (omino) associandolo al ca¬ 
rattere T. Questo carattere si trova ora in 8 bytes consecutivi a partire 
dalla locazione 12288 + (8x20)= 12448 (essendo T il carattere numero 20). 
In ciascuno di questi bytes dovremo trasferire il valore binario relativo 
ad ogni riga della matrice che definisce il carattere omino (vedi figura 
in basso). 

Sarà necessario codificare in modo decimale la rappresentazione bina¬ 
ria delle righe e trasferire questi valori nelle rispettive locazioni di me¬ 
moria tramite le istruzioni 


80 FOR 1=12448 TO 12455:READ A:POKE I,A:NEXT I 
90 DATA 24,24,60,90,153,60,36,102 

Il programma sarà concluso normalmente con l’istruzione END 
100 END 


Immettendo il comando RUN il programma sarà eseguito e al termine 
potremo constatare che il CBM-64 è in grado di riconoscere solo i 64 ca¬ 
ratteri che abbiamo copiato nella RAM, e che sostituisce al carattere T 
la figura dell’omino. 


colonna 7 6 5 4 3 2 1 0 



binario decimale 


0 

0 

0 

1 

1 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0 

0 

1 

1 

1 

1 

0 

0 

0 

1 

0 

1 

1 

0 

1 

0 

1 

0 

0 

1 

1 

0 

0 

1 

0 

0 

1 

1 

1 

1 

0 

0 

0 

0 

1 

0 

0 

1 

0 

0 

0 

1 

1 

0 

0 

1 

1 

0 


24 

24 

60 

90 

153 

60 

36 

102 


Gestione 
degli sprites 


L’uso dei soli caratteri definiti dall’utente non è in generale sufficiente 
per ottenere una buona grafica, soprattutto nel caso in cui si voglia far 
muovere oggetti sul video. 

Infatti un oggetto, corrispondente ad uno o più caratteri definiti dall’u¬ 
tente, può muoversi sul video di un carattere alla volta e, per ottenere 
ciò è necessario che il programma sposti all’interno della memoria vi¬ 
deo tutti i caratteri costituenti l'oggetto. 

Gli sprites sono insiemi di uno o più caratteri definiti dall’utente che pos¬ 
sono essere spostati dal programma in modo semplice e tale da ottenere 
un movimento continuo sullo schermo. 

Il CBM-64 è in grado di visualizzare contemporaneamente fino a 8 spri¬ 
tes (numerati da 0 a 7) che si muovono indipendentemente. Gli sprites 
hanno, a differenza dei caratteri, una matrice di definizione di 24 punti 
in larghezza (3 bytes) per 21 in altezza; quindi la loro definizione richie¬ 
de uno spazio di memoria di 63 (21x3) bytes più un byte nullo alla fine 
per un totale di 64 bytes. 

La matrice di definizione di uno sprite può essere memorizzata in una 
qualunque zona di memoria RAM e non necessariamente in posizione con¬ 
tigua alle matrici di definizione degli altri sprites, in quanto il CBM-64 
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ha un registro puntatore per ognuna di esse; i registri puntatori si trova¬ 
no a partire dalla locazione 2040. 

Incidentalmente, si noti che è possibile modificare semplicemente la 
forma di uno sprite cambiando il valore contenuto nel registro che 
punta alla matrice di definizione dello sprite, in modo tale da farlo pun¬ 
tare ad una definizione diversa dello stesso sprite. Così, se ad esempio 
si vuole rappresentare con uno sprite un omino che saluta alzando un 
braccio, si può pensare di memorizzare due diverse definizioni dello spri¬ 
te, una a braccio alzato e l’altra a braccio abbassato e quindi puntare 
alternativamente alle due matrici: l’effetto sarà un’alternanza delle due 
forme dello stesso sprite, che così rappresenterà un omino che muove 
un braccio. 

Nella figura sotto sono indicati i registri di controllo degli sprites con 
i relativi indirizzi di memoria. 


ORDINAMENTO REGISTRI SPRITES 


Indirizzo Basic VIC = 53248»,, = D000 l,,<i« 


Registri v 

Dec.Eudec 

DB7 

DB6 

DBS 

DB4 

DB3 

DB2 

DB1 

DB0 


0 

0 

S0X7 

S0X6 

S0X5 

S0X4 

S0X3 

S0X2 

S0X1 

soxo 

SPRITE 0 X 

1 

1 

S0Y7 







S0Y0 

SPRITE 0 Y 

2 

2 

S1X7 







S1X0 

SPRITE 1 X 

3 

3 

S1Y7 







S1Y0 

SPRITE 1 Y 

4 

4 

S2X7 







S2X0 

SPRITE 2 X 

5 

5 

S2Y7 







S2Y0 

SPRITE 2 Y 

6 

6 

S3X7 







S3X0 

SPRITE 3 X 

7 

7 

S3Y7 







S3Y0 

SPRITE 3 Y 

8 

8 

S4X7 







S4X0 

SPRITE 4 X 

9 

9 

S4Y7 







S4Y0 

SPRITE 4 Y 

10 

A 

S5X7 







S5X0 

SPRITE 5 X 

11 

B 

S5Y7 







SSY0 

SPRITE 5 Y 

12 

C 

S6X7 







S6X0 

SPRITE 6 X 

13 

0 

S6Y7 







S6Y0 

SPRITE 6 Y 

14 

E 

S7X7 







S7X0 

SPRITE 7 X 

15 

F 

S7Y7 







S7Y0 

SPRITE 7 Y 

16 

10 

S7X8 

S6X8 

S5X8 

S4X8 

S3X8 

S2X8 

S1X8 

S0X8 

Bit$ alti del 
valore-X 

17 

11 

RC8 

EC5 

BSM 

BLNK 

RSEL 

YSCL2 

YSCL1 

YSCLO 


18 

12 

RC7 

RC6 

RC5 

RC4 

RC3 

RC2 

RC1 

RC0 

TAVOLA 

19 

13 

LPX7 







LPX0 

LIGHT PEN X 

20 

14 

LPY7 







LPY0 

LIGHT PEN Y 

21 

15 

SE7 







SE0 

SPRITE 

ENABLE 

(IN/OUT) 

22 

16 

N.C. 

N.C. 

RST 

MCM 

CSEL 

XSCL2 

XSCL1 

XSCL0 


23 

17 

SEXY7 







SEXY0 

Espansione Y 
dello Sprite 

24 

18 

VS13 

VS12 

VS11 

CB13 

CB12 

CB11 

CB10 

N.C. 

Memoria video 


25 

19 

IRQ 

N.C. 

N.C. 

N.C. 

LPIRQ 

ISSC 

ISBC 

RIRQ 

Interrupt 

Request's 

26 

1A 

N.C. 

N.C. 

N.C. 

N.C. 

MPLI 

MISSC 

MISBC 

WRIRO 

Interrupt 

Request 

MASKS 

27 

1B 

BSP7 







BSP0 

Priorità 

Sfondo 

Sprite 

28 

1C 

SCM7 







SCMO 

Selezione 

Sprite 

Multicolore 

29 

1D 

SEXX7 







SEXX0 

Espansione X 
dello Sprite 

30 

1E 

SSC7 







SSCO 

COLLISIONE 

Sprite-Sprite 

31 

1F 

SBC7 







SBC0 

COLLISIONE 

Sprite-Sfondo 




INFORMAZIONI-COLORE 



32 

20 









Margine 

33 

21 









Sfondo 0 

34 

22 









Sfondo 1 

35 

23 









Sfondo 2 

36 

24 









Sfondo 3 

37 

25 







SMC0 

38 

26 







SMC1 

39 

27 









Colore Sprite 0 

40 

28 









Colore Sprite t 

41 

29 









Colore Sprite 2 

42 

2A 









Colore Sprite 3 

43 

2B 









Colore Sprite 4 

44 

26 









Colore Sprito 5 

45 

2D 









Colore Sprite 6 

46 

2E 









Colore Sprite 7 


Una volta definito, uno sprite può essere visualizzato sullo schermo sem¬ 
plicemente assegnando il valore 0 o 1 ad un opportuno bit, relativo allo 
sprite in questione, nel registro di indirizzo 53269. Ad esempio, se si è 
definito lo sprite numero 2, esso può essere visualizzato ponendo a 1 il 
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terzo bit del registro 53269 con l’istruzione 
POKE 53269, PEEK (53269) OR 4 

e può essere cancellato ponendo a 0 lo stesso bit con l’istruzione 
POKE 53269, PEEK (53269) AND 251 

Uno sprite può essere visualizzato in un qualunque punto del video an¬ 
dando a porre in due registri associati allo sprite i valori delle posizioni 
X ed Y (ascissa ed ordinata) del punto: per visualizzare ad esempio lo 
sprite numero 2 nel punto 100,270 dello schermo, dato che i registri di 
posizionamento degli sprites sono posti a partire dall’indirizzo 53248, do¬ 
vranno essere usate le seguenti istruzioni 

POKE 53252,100 RETURN 
POKE 53253,270 RETURN 

Ricordiamo poi che i registri 53287-R 53294 permettono di assegnare i 
colori desiderati agli sprites 0 -p 7 rispettivamente e che gli sprites pos¬ 
sono essere estesi raddoppiandone altezza e/o larghezza. L’altezza può 
essere raddoppiata ponendo pari ad 1 il bit corrispondente allo sprite 
nel registro 53271 e la larghezza è estendibile operando allo stesso modo 
sul registro 53277. Il listato seguente ci fornisce un esempio di anima¬ 
zione di uno sprite formato da quattro linee verticali. 


5 REM HNIMHzIONE DI UNO SPRITE 

[& P0KF. 2840,13 REM LEGGE DHL BLOCCO 13 I BRÌI 


11 REM DELL'ANIMAZIONE 
20 POP 1=8 TO 62 


30 POKE 832+1,129 

48 NEXT I • REM INSERISCE NEL BLOCCO 13 I DATI 
41 REM DELL'ANIMAZIONE <13*63=832) 

■Mi kP-M SI DISPONE ALL'INIZIO DEL CIRCUITO VIDEO 


60 POKE V+21,1 REM ABILITA L ANIMAZIONE 0 

20 POKE V+39,1 REM IMPOSTA IL COLORE DELL'ANIMAZIONE 0 

25 F0R 1=100 TO 800 REM ANIMAZIONE SPRITE 

80 POKE V+1, I REM IMPOSTA LA POSIZIONE V DELL ANIMAZIONE 0 

90 POKE V+16,0 POKE V/I - REM IMPOSTA LA POSIZIONE X 

91 REM DELL ANIMAZIONE 0 
95 NEXT I 

100 END 




Il suono 

Una delle caratteristiche più interessanti del CBM-64 è la sua capacità 
di generare suoni attraverso un programma che controlli gli appositi re¬ 
gistri dedicati a questa funzione. 

Il componente fondamentale che viene utilizzato per tali operazioni è il 
dispositivo di interfaccia del suono SID. Il SID contiene tre generatori 
di voci (cioè tre generatori di note) diversi, che combinati in modo op¬ 
portuno consentono di ottenere dei suoni. Il SID contiene inoltre 25 lo¬ 
cazioni di memoria (registri del suono), che controllano il volume, il to¬ 
no ed il tipo di suono che viene emesso. 

Nella tabella qui sotto sono riportate le locazioni di memoria dedicate 
a questo scopo, accanto alle rispettive funzioni. 


Descrizione del registro del suono 


Locazione di memoria 



VOCE 1 

VOCE 2 

VOCE 3 

Controllo frequenza voce (byte basso) 

54272 

54279 

54286 

Controllo frequenza voce (byte alto) 

54273 

54280 

54287 

Durata dell’Impulso (byte basso) 

54274 

54281 

54288 

Durata dell'Impulso (byte alto) 

54275 

54282 

54289 

Registro di controllo della forma d'onda 

54276 

54283 

54290 

Registro di controllo attack e decay 

54277 

54284 

54291 

Registro di controllo sustain e release 

54278 

54285 

54292 



Funzioni di filtro 


Valore filtro cutoff (byte basso) 


54293 


Valore filtro cutoff (byte alto) 


54294 


Controllo risonanza filtro/ingresso voce 


54295 


Controllo del volume 


54296 



La locazione 54296 con i suoi 4 bits meno significativi controlla il volu¬ 
me del suono: si possono infatti ottenere 16 livelli di volume differenti 
che variano tra i valori 0 (mancanza di suono) e 15 (volume massimo). 
Per controllare il volume è sufficiente assegnare mediante una POKE uno 
di questi valori ai primi 4 bits della locazione 54296. 

Per ottenere un suono è necessario assegnare adatti valori anche ai regi¬ 
stri delle voci. Come si può notare, ognuna delle tre voci ha a disposizio¬ 
ne sette locazioni di memoria, ciascuna delle quali controlla il tipo di suo¬ 
no prodotto da quella voce. Di queste locazioni di memoria, le prime due 
(54272-54273 per la prima voce) controllano la frequenza del suono emesso 
(compresa tra 1 e circa 3995 Hz) che viene codificata mediante parole 
di 16 bits. Nella figura della pagina seguente si possono vedere i valori 
da utilizzare per ottenere le diverse note. 

La coppia successiva (54274-54275 per la prima voce) specifica la durata 
del suono emesso. 

Le ultime tre locazioni di memoria (54276-^54278 per la prima voce) ser¬ 
vono a determinare il timbro della nota specificando la forma dell’onda 
sonora. Infatti il primo dei tre registri permette di controllare l’attiva¬ 
zione o meno del generatore di suono, il tipo di onda sonora usata dal 
generatore (triangolare, identificata dal numero 17, quadra, dal numero 
65, o a dente di sega, dal numero 33) oppure, non attivando il generatore 
di suono, l’emissione di un «rumore bianco», cioè un suono nel quale so- 
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volume 


REGISTRI DEL SUONO 

(Byte alto) 
Valore POKE 

(Byte basso) 
Valore POKE 

Frequenza 

(Hz) 

Note 

musicali 

(Byte alto) 

Valore POKE 

(Byte basso) 

Valore POKE 

Frequenza 

(Hz) 

Note 

musicali 

(Byte alto) 

Valore POKE 

(Byte basso) 

Valore POKE 

Frequenza 

(Hz) 

Note 

musicali 

(Byte alto) 

Valore POKE 

(Byte basso) 

Valore POKE 

Frequenza 

(Hz) 

Note 

musicali 

PRIMA OTTAVA 

TERZA OTTAVA 

QUINTA OTTAVA 

SETTIMA OTTAVA 

1 

12 

16 

DO 

4 

48 

65 

DO 

16 

195 

262 

DO 

67 

12 

1046 

DO 

1 

28 

17 

DO# 

4 

112 

69 

DO# 

17 

194 

277 

DO# 

71 

8 

1109 

DO# 

1 

45 

18 

RE 

4 

180 

73 

RE 

18 

208 

294 

RE 

75 

66 

1175 

RE 

1 

62 

19 

RE# 

4 

251 

76 

RE# 

19 

238 

311 

RE# 

79 

187 

1244 

RE# 

1 

81 

21 

MI 

5 

71 

82 

MI 

21 

30 

330 

MI 

84 

121 

1319 

MI 

1 

101 

22 

FA 

5 

151 

87 

FA 

22 

95 

349 

FA 

89 

127 

1397 

FA 

1 

123 

23 

FA# 

5 

237 

92 

FA# 

23 

180 

370 

FA# 

94 

209 

1480 

FA# 

1 

145 

24 

SOL 

6 

71 

98 

SOL 

25 

29 

392 

SOL 

100 

117 

1568 

SOL 

1 

169 

25 

SOL# 

6 

167 

104 

SOL# 

26 

155 

415 

SOL# 

106 

110 

1661 

SOL# 

1 

195 

27 

LA 

7 

12 

110 

LA 

28 

48 

440 

LA 

112 

194 

1760 

LA 

1 

221 

29 

LA# 

7 

119 

117 

LA# 

29 

221 

466 

LA# 

119 

118 

1865 

LA# 

1 

250 

31 

SI 

7 

233 

123 

SI 

31 

164 

494 

SI 

126 

145 

1976 

SI 

SECONDA OTTAVA 

QUARTA OTTAVA 

SESTA OTTAVA 

OTTAVA OTTAVA 

2 

24 

32 

DO 

8 

97 

131 

DO 

33 

134 

523 

DO 

134 

24 

2093 

DO 

2 

56 

34 

DO# 

8 

225 

139 

DO# 

35 

132 

554 

DO# 

142 

17 

2217 

DO# 

2 

90 

37 

RE 

9 

104 

147 

RE 

37 

161 

587 

RE 

150 

132 

2349 

RE 

2 

125 

39 

RE# 

9 

247 

156 

RE# 

39 

221 

622 

RE# 

159 

119 

2489 

RE# 

2 

163 

41 

MI 

10 

143 

165 

MI 

42 

60 

659 

MI 

168 

242 

2637 

MI 

2 

203 

44 

FA 

11 

47 

175 

FA 

44 

191 

698 

FA 

178 

254 

2794 

FA 

2 

246 

46 

FA# 

11 

218 

185 

FA# 

47 

104 

740 

FA# 

189 

163 

2960 

FA# 

3 

35 

49 

SOL 

12 

142 

196 

SOL 

50 

58 

784 

SOL 

200 

234 

3136 

SOL 

3 

83 

52 

SOL# 

13 

77 

208 

SOL# 

53 

55 

831 

SOL# 

212 

220 

3322 

SOL# 

3 

134 

55 

LA 

14 

24 

220 

LA 

56 

97 

880 

LA 

225 

132 

3520 

LA 

3 

187 

58 

LA# 

14 

238 

233 

LA# 

59 

187 

932 

LA# 

238 

237 

3729 

LA# 

3 

244 

62 

SI 

15 

210 

247 

SI 

63 

72 

988 

SI 

253 

34 

3951 

SI 



tempo 


no presenti tutte le frequenze e che si presenta come un fruscio. Gli altri 
due registri specificano la forma dell’onda precisando la durata di quat¬ 
tro intervalli di tempo che la determinano (vedi grafico a lato). Per quan¬ 
to riguarda la prima voce questi valori sono espressi sotto forma di 4 
bits assegnati alla prima e alla seconda metà dei registri 54277 (attack, 
tempo di salita del suono al volume massimo, e decay, tempo di discesa 
del volume fino al valore medio) e 54278 (sustain, tempo di persistenza 
del suono a volume medio, e release, tempo di caduta a zero del volume). 
Infine i registri 54293-^54296 permettono di fissare una serie di para¬ 
metri relativi al tipo dei suoni emessi dai tre generatori; questi parame¬ 
tri una volta fissati sono gli stessi per le tre voci e, tra gli altri, compren¬ 
dono la regolazione del volume, di cui abbiamo parlato sopra. 
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L’interprete 


Il Basic 
del CBM-64 

Il CBM-64 è in grado di accettare e di eseguire programmi scritti in un 
«dialetto» del linguaggio Basic, il linguaggio più comunemente usato nella 
programmazione dei personal computer. 

Come per un linguaggio comune, ad esempio l’italiano, esistono diverse 
varianti regionali (dialetti), così per un qualsiasi linguaggio di program¬ 
mazione esistono, oltre ad una versione «ufficiale» detta versione stan¬ 
dard, molte varianti particolari, generalmente una per ogni macchina. 
I dialetti differiscono dalla versione standard per la completezza e per 
un certo numero di altre caratteristiche che, pur secondarie, sono comun¬ 
que tali da non rendere eseguibili su una data macchina programmi scritti 
facendo riferimento al dialetto Basic di una macchina diversa. 

La versione del Basic utilizzata dal CBM-64 è indicata col nome «COM¬ 
MODORE 64 Basic V2», che appare sul video all’atto dell’accensione del 
computer. 

Un programma è una successione ordinata di istruzioni che, sottoposte 
ad esecuzione, consentono di elaborare passo dopo passo un certo nu¬ 
mero di dati, per arrivare alla soluzione di un determinato problema. 
Nel Basic l’ordinamento della successione delle istruzioni è stabilito non 
dall’ordine fisico secondo cui esse vengono immesse, ma dalla numerazio¬ 
ne che il programmatore impone. 

Non è affatto necessario che i numeri di due istruzioni successive differi¬ 
scano di una unità: le istruzioni potrebbero essere numerate, ad esempio, 
di dieci in dieci, e il computer riuscirebbe ugualmente ad eseguirle nella 
giusta successione, procedendo dal numero di linea più basso al più alto. 
La pratica di numerare le istruzioni saltando ogni volta alcuni numeri ri¬ 
sulta utile in quanto consente di inserire nuove istruzioni fra quelle già esi¬ 
stenti senza dover rinumerare tutto il programma. Dovendo inserire una 
nuova istruzione fra la 10 e la 20 sarà sufficiente digitare, in qualsiasi 
punto del programma, l’istruzione desiderata, dandole per esempio il nu¬ 
mero 15. La nuova istruzione sarà collocata automaticamente al suo posto. 
Bisogna chiarire subito che il microprocessore del CBM-64 non è in gra¬ 
do, da solo, di comprendere il significato delle frasi che il programmato- 
re gli sottopone. Sappiamo infatti che i circuiti elettronici che compon¬ 
gono un computer sono in grado di elaborare solo segnali digitali binari, 
e non parole complesse. Il linguaggio Basic, come tutti i linguaggi di pro¬ 
grammazione, è un espediente ideato per consentire ai programmatori 
di lavorare con parole più vicine alla sensibilità umana di quanto non 
lo siano gli aridi codici binari. 

In realtà il microprocessore riceve le diverse istruzioni nella forma a lui 
direttamente comprensibile, cioè come successione di cifre 0 e 1. La tra¬ 
duzione delle parole utilizzate dal programmatore (linguaggio simboli¬ 
co) nei corrispondenti codici binari (linguaggio macchina) è effettuata da 
un programma di sistema (cioè permanentemente contenuto nel CBM-64), 
chiamato interprete. Quando si manda in esecuzione un programma, l’in¬ 
terprete traduce ciascuna istruzione in linguaggio macchina, e la invia 
alla CPU che la esegue. 

Ricordiamo dunque che le istruzioni da noi immesse nel CBM-64 saran¬ 
no elaborate in primo luogo dall’interprete, e che è l’interprete a limita¬ 
re l’uso delle parole-istruzione all’ambito previsto dal dialetto Basic uti¬ 
lizzato dalla macchina. 

Le parole-chiave che l’interprete è in grado di riconoscere determinano 
l'esecuzione di diversi tipi di operazioni. A seconda del tipo di operazio- 
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ne attivato si parla di comandi e istruzioni. 

I comandi impongono in genere al CBM-64 di operare in un certo modo 
su un programma, mentre le istruzioni operano su dati e variabili. 

Dati, risultati, Un programma è una successione ordinata di istruzioni che agiscono su 

Costanti e variabili un certo numero di grandezze il cui valore è noto al programma (dati) 

per ricavare i valori di altre grandezze (risultati) che il programmatore 
vuole conoscere. Dati e risultati sono grandezze che il programma elabora. 
Le grandezze che possono essere elaborate da un programma si suddivi¬ 
dono in costanti e variabili: sono costanti le grandezze non soggette a va¬ 
riare durante l’esecuzione, mentre si dicono variabili le grandezze che 
possono assumere valori diversi nel corso di una stessa esecuzione. 
Noi siamo abituati a pensare alle costanti e alle variabili come a gran¬ 
dezze numeriche, ma una delle caratteristiche più interessanti del Basic 
è quella di poter elaborare anche grandezze costituite da una successio¬ 
ne di caratteri alfabetici, numerici e grafici. Queste grandezze sono chia¬ 
mate «stringhe». 

Una stringa può essere essa stessa una costante, se il suo valore non va¬ 
ria durante l’esecuzione del programma che la utilizza, o una variabile, 
se il programma la modifica in un modo qualsiasi. 

Costanti e variabili (numeriche o di stringa) possono essere indicate al¬ 
l’interno di un programma utilizzando nomi simbolici. Ad esempio, se 
dobbiamo utilizzare i due numeri 10 e 20 per sommarli fra di loro c per 
visualizzare il risultato, potremmo immettere il programma riportato qui 
a fianco. 

1 A = 10 Le prime due istruzioni assegnano alla costante 10 il nome simbolico A 

2 B = 20 e alla costante 20 il nome simbolico B. La terza calcola la somma (utiliz- 

3 C = A + B zando i nomi simbolici) e la quarta la visualizza, utilizzando ancora un 

4 PRINT C nome simbolico. 

I nomi simbolici hanno una sintassi che dipende dal tipo di costante o 
di variabile cui si riferiscono. 


Al =45.73 
AB = 12 
CZ = 129.992 


Cl%= 12 
AC% = 3 
ZZ% = 75 


Al$ = "MANUALI” 
A2$ = "DI” 

A3$ = "BASIC” 


■ Per costanti e variabili numeriche reali (in virgola mobile) il nome sim¬ 
bolico deve essere composto al massimo da due caratteri, dei quali 
il primo necessariamente alfabetico. Alcuni esempi sono riportati qui 
a fianco. Variabili e costanti in virgola mobile possono assumere va¬ 
lori interi e decimali compresi nel campo - 10 + 38 = 4-10 + 38 , e occu¬ 
pano in memoria 4 bytes. 

■ Per costanti e variabili numeriche intere il nome deve essere compo¬ 
sto come nel caso precedente, ma ad esso deve essere aggiunto in co¬ 
da il simbolo %. Costanti e variabili intere possono assumere valori 
compresi nel campo -32768 = +32767, e occupano in memoria 2 by¬ 
tes. 

La minore occupazione di memoria ne rende conveniente l’uso, lad¬ 
dove possibile, in luogo delle variabili reali in virgola mobile. 

■ Per costanti e variabili di stringa il nome deve essere composto come 
per costanti e variabili reali, ma ad esso deve essere aggiunto in coda 
il simbolo $ (dollaro). Costanti e variabili di stringa possono contene¬ 
re al massimo 255 caratteri, ed occupano in memoria tanti bytes quanti 
sono i caratteri che le compongono (allocazione dinamica). 

Il Basic del CBM-64 consente anche di definire un tipo particolare di va¬ 
riabili e di costanti, chiamato array (vettore, matrice). Un array è un in¬ 
sieme di variabili o costanti omogenee (cioè tutte dello stesso tipo) al quale 
si può fare riferimento con un nome simbolico unico. 
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Gli operatori 


10 LET A$= "CALCO” 
20 LEI B$ = "LATORE” 
30 LET C$ = A$ + B$ 

40 PRINT C$ 


Quando si devono elaborare tutti nello stesso modo dei dati omogenei 
risulta poco razionale utilizzare altrettanti nomi simbolici diversi. 

Il Basic consente di evitare l’inconveniente facendo riferimento all’insie¬ 
me dei dati come se si trattasse di un’unica variabile simbolica (array 
o variabile strutturata). Esiste un'istruzione (DIM) che consente di defi¬ 
nire il nome simbolico di una variabile dichiarando al contempo di voler 
assegnare a quella variabile non uno, ma più valori distinti. 

Ricevuta questa istruzione il calcolatore crea in memoria una sorta di 
tabella avente tante caselle quanti sono i dati che il programmatore in¬ 
tende assegnare, e numera queste caselle a partire da 0. 

Dimensionato l’array (istruzione DIM) in ognuna delle caselle è possibi¬ 
le scrivere il valore di un dato, specificando il numero progressivo della 
casella nell’array (la numerazione delle caselle parte da 0). 

Gli array possono avere anche più di una dimensione. Nel caso di array 
monodimensionale (vettore) la tabella creata in memoria si può immagi¬ 
nare come una semplice successione di caselle. Un array bidimensiona¬ 
le (matrice) si può riguardare come una tabella avente le caselle riparti¬ 
te su più righe e colonne; per specificare una determinata casella servi¬ 
ranno due indici, il primo per la riga, il secondo per la colonna. 

Un array a tre dimensioni può pensarsi costituito da più matrici impagi¬ 
nate l’una dopo l’altra in modo da costituire tante pagine di un libro. Per 
individuare una casella serviranno in questo caso tre indici, uno per in¬ 
dicare la riga, uno per la colonna e uno per la pagina. 

Gli operatori sono simboli che, inseriti nelle istruzioni e riconosciuti dal¬ 
l'interprete, attivano l’elaborazione delle variabili e delle costanti sulle 
quali agiscono. Gli operatori previsti dal Basic del CBM-64 sono di tre tipi. 


■ Operatori aritmetici. Sono i normali operatori dei calcoli aritmetici, 
e sono compendiati nella seguente tabella: 


Operatore 

Significato 

Esempio 

t 

elevamento a potenza 

AT2 

/ 

divisione 

A/2 

* 

moltiplicazione 

A* 2 

+ 

somma 

A + 2 

— 

sottrazione 

A - 2 


Se operatori aritmetici diversi sono impiegati nella stessa espressio¬ 
ne il CBM-64 li attiva con la priorità con cui ogni simbolo compare 
nella tabella stessa (prima t, poi /, ecc.). 

L’operatore aritmetico + può operare anche sulle stringhe, con il si¬ 
gnificato di concatenamento. Ad esempio, le linee indicate a fianco 
forniscono come risultato C$ = "CALCOLATORE" 

■ Operatori relazionali. Consentono di stabilire una comparazione fra 
due grandezze. Sono riassunti nella tabella che segue. 


Operatore 

Significato 

Esempio 

= 

... uguale a... 

A = B 

> 

... maggiore di... 

A>B 

< 

... minore di... 

A<B 

>= (o =>) 

... maggiore o uguale a... 

A>=B 

<= (o =<) 

... minore o uguale a... 

A< =B 

< > (o > < ) 

... diverso da... 

A< >B 
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I comandi 


NEW 

LIST 

L SHIFT + I 


RUN 

R SHIFT + U 


■ Operatori logici. Attivano l’esecuzione delle operazioni logiche su co¬ 
stanti e variabili. Qui sotto è riportata la tavola della verità degli ope¬ 
ratori previsti dall’interprete del CBM-64. 


A 

B 

A AND B 

A OR B 

NOT A 

NOT B 

0 

0 

0 

0 

1 

1 

0 

1 

0 

1 

1 

0 

1 

0 

0 

1 

0 

1 

1 

1 

1 

1 

0 

0 


Gli operatori logici sono utilizzati spesso all’interno delle istruzioni 
Basic, per controllare il verificarsi di particolari situazioni alle quali 
può essere condizionata l'esecuzione del programma. 

Ad esempio, se si vuole condizionare un evento al fatto che risulti con¬ 
temporaneamente A>B e A<>C si dovrà imporre la condizione 

A>BAND A<>C 

Si è già detto che i comandi attivano funzioni che hanno per oggetto dei 
programmi. L’interprete del CBM-64 può riconoscere un numero limita¬ 
to di comandi, che riguardano la scrittura, l’uso e il salvataggio dei pro¬ 
grammi su supporto magnetico. 

Prima di iniziare la scrittura di un nuovo programma è sempre opportu¬ 
no ripulire la memoria di tutto ciò che contiene, che può essere un resi¬ 
duo indesiderato di precedenti elaborazioni (comando NEW). Durante la 
digitazione delle istruzioni è inoltre comodo poter visualizzare all'occor- 
renza le parti del programma che interessano (comando LIST). Termina¬ 
ta la digitazione si deve verificare il funzionamento del programma or¬ 
dinandone l’esecuzione (comando RUN), dopo di che è possibile memo¬ 
rizzare il programma su supporto magnetico (SAVE), controllando che 
la copia sia fedele all’originale (VERIFY). Il programma può essere ri¬ 
chiamato in memoria all’occorrenza utilizzando il comando LOAD. 

C’è da notare che, per far risparmiare tempo nella digitazione di program¬ 
mi e comandi, il CBM-64 offre all’utente la possibilità di abbreviare la 
maggior parte delle parole-chiave (se le abbreviazioni sono usate in una 
linea di programma, la parola-chiave apparirà nella forma completa). Le 
abbreviazioni sono indicate vicino o sotto le corrispondenti parole-chiave. 
Vediamo ora in dettaglio il funzionamento dei comandi citati. 

Cancella il contenuto della memoria accessibile all’utente. Qualsiasi in¬ 
formazione contenuta nella memoria è persa. 

Attiva la visualizzazione delle linee del programma presente in memoria 
al momento deH’immissione del comando. 

Un comando LIST senza parametri visualizza l’intero programma, ma 
è possibile ordinare la visualizzazione delle parti che interessano speci¬ 
ficando alcuni parametri. Ad esempio, 

LIST 20 visualizza solo la linea 20 

LIST 20-100 visualizza le linee da 20 a 100 
LIST- 100 visualizza le linee dall’inizio alla 100 
LIST 20 - visualizza le linee dalla 20 alla fine. 

Attiva l’esecuzione del programma che risiede in memoria all’atto del¬ 
l’esecuzione del comando. E anche possibile ordinare l’esecuzione a par¬ 
tire da una certa linea in poi, specificando il numero della linea dopo la 
parola RUN. 
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CONT 

C SHIFT + O 
SAVE 

S SHIFT + A 


VERIFY 
V SHIFT + E 


LOAD 

L SHIFT + O 


Le istruzioni 


LET 

L SHIFT + E 


Riattiva l’esecuzione di un programma interrotta da un'istruzione STOP, 
da un’istruzione END o dalla pressione del tasto RUN/STOP. 

Salva su supporto magnetico il programma contenuto nella memoria del 
CMB-64. L’operatore può assegnare al programma un nome (per un mas¬ 
simo di 16 caratteri), specificandolo tra doppi apici dopo la parola SA¬ 
VE. Ad esempio, il comando SAVE "PROG.l’’ determina la memorizza¬ 
zione su cassetta del programma residente in memoria; all’inizio della 
zona del nastro utilizzata il sistema scriverà il nome PROG.l, col quale 
il programma potrà essere richiamato (LOAD ”PROG.l"). 

Specificando un ulteriore parametro (numero del dispositivo) è possibi¬ 
le effettuare la memorizzazione, anziché su cassetta, su floppy-disk. In 
questo caso il comando da inserire ha la sintassi SAVE "PRÓG.l”, 8, do¬ 
ve il numero 8 indica il driver. 

Questo comando fa sì che il CMB-64 controlli il programma su nastro 
o su disco a fronte di quello presente in memoria. Ecco alcuni esempi: 

VERIFY controlla il primo programma su nastro 

VERIFY "PROG. 1 " cerca PROG. 1 su nastro e lo confronta con quan¬ 

to c'è in memoria 

VERIFY ’TROG.l”, 8 cerca PROG.l su disco (8) e lo controlla. 

Il comando VERIFY è utile anche per posizionare la testina del registra¬ 
tore sul nastro dopo l'ultimo programma registrato, in modo da poter 
salvare il programma residente in memoria senza cancellarne altri. Ba¬ 
sta immettere il comando VERIFY seguito dal nome dell’ultimo program¬ 
ma salvato: il CBM-64 dirà che non coincide con quello in memoria, ma 
alla fine la testina sarà posizionata sul nastro all’inizio della zona libera. 

Attiva il caricamento in memoria di un programma salvato su nastro o 
su disco. Il funzionamento è duale rispetto a quello del comando SAVE. 


LOAD 

carica in memoria il primo programma che tro¬ 
va sul nastro 

LOAD "PROG.l” 

carica in memoria il programma PROG. 1 residen¬ 


te su nastro 

LOAD "PROG.!”, 8 

carica in memoria il programma PROG.l residen¬ 
te su disco (8). 


Le istruzioni che l’interprete Basic del CBM-64 è in grado di decodifica¬ 
re si possono suddividere in sei gruppi: 


■ istruzioni di assegnazione 

■ istruzioni di ingresso/uscita dati da consolle 

■ istruzioni di gestione dei files su supporto magnetico 

■ istruzioni di controllo 

■ istruzioni di definizione 

■ istruzioni di commento 

Vediamo ora in dettaglio le istruzioni di ciascun gruppo. 

■ Istruzioni di assegnazione 

Si chiamano così perché tramite esse è possibile assegnare ad una o più 
variabili i valori che si desidera esse assumano. 

Assegna un valore ad una variabile specificata col proprio nome simbo¬ 
lico; il valore può essere specificato esplicitamente o tramite un’espres¬ 
sione che può fare riferimento ai valori di altre variabili. 
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CLR 

C SHIFT-rL 


POKE 

P SHIFT-0 


DATA 

D SHIFT + A 


READ 

R SHIFT + E 


RESTORE 
RE SHIFT + S 


10 LET A = 2 
10 LET A = B 

10 LET A = B + 2 

LET A$ = ”CIAO" 


assegna alla variabile A il valore 2 
assegna alla variabile A il valore della varia¬ 
bile B 

assegna alla variabile A il valore ottenuto som¬ 
mando 2 al valore della variabile B 
assegna il valore CIAO alla stringa A$. 


Il codice LET è facoltativo: A = 2 ha lo stesso significato di LET A = 2. 

Assegna il valore 0 a tutte le variabili definite in precedenza. Le stringhe 
sono poste uguali alla stringa nulla (cioè alla stringa che non contiene 
alcun carattere). Se consideriamo il programma 


10 LET A = 7 
20 LET B = 3 
30 CLR 


dopo l’esecuzione della linea 30 avremo A=0, B = 0. 

Permette di assegnare direttamente un valore numerico ad una cella di 
memoria. Il valore numerico da assegnare può anche essere specificato 
con un’espressione. 

10 POKE 3844,3 assegna il valore 3 alla cella di indirizzo 3844 

10 POKE 38444,A + B*4 assegna il valore A + B *4 alla cella di indiriz¬ 
zo 38444. 


Specifica un elenco di dati che il programma potrà leggere facendo uso 
dell’istruzione READ. L'impiego di questo metodo di assegnazione è molto 
utile quando un programma deve acquisire un certo numero di dati che 
rimangono gli stessi ad ogni esecuzione. Per quanto riguarda la sintassi, 
occorre specificare alcune cose sulle stringhe. La linea 

10 DATA 3, 26, CIAO, 5, "COME VA?” 


è predisposta per far leggere al programma i dati 3, 26, CIAO (stringa), 
5, COME VA? (stringa). Come si può notare, la stringa CIAO non è rac¬ 
chiusa fra doppi apici, e questa è regola generale per qualunque stringa, 
a meno che essa non contenga i caratteri virgola o due punti. 

In questi casi è necessario racchiudere la stringa fra doppi apici. 

Permette di leggere sequenzialmente i dati specificati in un’istruzione 
DATA. Ad esempio, il programma 

10 DATA 3, 26, CIAO, 5, "COME VA?" 

20 READ A, B, C$, D, E$ 


assegna i seguenti valori: A = 3, B = 26, C$ = "CIAO", D = 5, E$ = "COME 
VA?”. Occorre prestare molta attenzione alla corrispondenza dei tipi. 


Specifica che la lettura dei dati inclusi in un’istruzione DATA va effet¬ 
tuata nuovamente dall’inizio della lista. Ad esempio, il programma 

10 DATA 3, 6, 36 
20 READ A, B, C 
30 RESTORE 
40 READ D, E 
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INPUT 


PRINT 


GET 

G SHIFT + E 


attiva le seguenti assegnazioni: A = 3, B = 6, C=36, D = 3, E = 6. 

■ Istruzioni di ingresso/uscita dati da consolle 

Questo gruppo di istruzioni permette di impostare il colloquio tra il pro¬ 
gramma Basic nel quale sono inserite e l’operatore, rendendo possibile 
l’immissione di dati e la restituzione dei risultati dell’elaborazione. 

Causa l’attesa, da parte del programma, dcH’immissione di dati da 
tastiera. L’istruzione è completata con uno o più nomi di variabili, e 
determina l’attesa di tanti dati quante sono le variabili citate. È anche 
possibile produrre la visualizzazione di un messaggio che chieda espli¬ 
citamente l’immissione o che ne specifichi le modalità. Vediamo alcuni 
esempi: 

10 INPUT A richiede l'immissione di un valore nume¬ 

rico da tastiera, da assegnare alla varia¬ 
bile A. All’atto dell’esecuzione della 10 sul 
video appare un punto interrogativo, e il 
programma rimane fermo alla linea 10 
finché non viene immesso il dato richiesto 
10 INPUT "VALORE DI A”; A come nel caso precedente, ma stavolta è 

visualizzata la scritta VALORE DI A? 

10 INPUT A, B, C$ attende tre dati da tastiera, due numeri¬ 

ci e uno di stringa, da assegnare alle va¬ 
riabili A, B, C$ 

Visualizza su video i valori assunti dalle variabili citate nella lista che 
segue la parola PRINT. Anche in questo caso è possibile visualizzare un 
messaggio esplicativo. Ad esempio, 

10 PRINT A, B visualizza i valori di A e B 

10 PRINT"VALOREDI A = ”;A visualizza la scritta VALORE DI A = se- 

guita dal valore della variabile A 

10 PRINT A, B, C, D$ visualizza i valori delle variabili nell’or¬ 

dine con cui sono citate nella lista 

Acquisisce un carattere da tastiera se è stato digitato. Il carattere im¬ 
messo è assegnato ad una variabile di stringa specificata nell’istruzione. 
Ad esempio, 

10 GET A$ se è presente un carattere digitato sulla 

tastiera, lo acquisisce e lo assegna alla va¬ 
riabile A$. 

■ Istruzioni di gestione dei files su supporto magnetico 

Consentono al microprocessore di accedere agli archivi (files) residenti su 
supporto magnetico (nastro, disco) e di utilizzarne il contenuto. Con questo 
insieme di istruzioni è possibile creare, modificare, leggere, scrivere i files. 
È importante notare che tutte le unità che compongono la configurazio¬ 
ne base del CBM-64 (video, tastiera, registratore) sono viste dal proces¬ 
sore come files (cioè come unità da cui possono essere lette, o verso le 
quali possono essere inviate le informazioni), ma per gestirle non è ne¬ 
cessario utilizzare istruzioni particolari, dal momento che il CMB-64 è 
programmato per interpretare sempre comandi e istruzioni come se aves¬ 
sero per oggetto le suddette unità, a meno che non sia specificato diver- 
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OPEN 

0 SHIFT + P 


samente dal programmatore. 

Questi può deviare il flusso dei dati verso altri dispositivi, in particolare 
il driver e la stampante, utilizzando le istruzioni che seguono. 

Consente di «aprire» il canale di comunicazione fra il computer e una 
periferica (stampante, driver...) o di rendere accessibile il contenuto di 
un file su supporto magnetico. 

All’istruzione sono associati alcuni parametri che consentono al compu¬ 
ter di individuare la periferica interessata. 


■ La parola OPEN è sempre seguita da un numero compreso fra 1 e 255, 
che è il numero col quale il programmatore vuole indicare la perife¬ 
rica. A questo numero dovranno fare riferimento eventuali altre istru¬ 
zioni aventi per oggetto la comunicazione fra il programma e quella 
periferica. Ad esempio, se la OPEN apre un file su disco e gli assegna 
il numero X, ogni istruzione di lettura e di scrittura in quel file dovrà 
citare il numero X. 


■ Il primo numero è seguito da un secondo numero, separato dal pri¬ 
mo con una virgola, che consente al CBM-64 di individuare il disposi¬ 
tivo oggetto della OPEN. 

La numerazione delle periferiche, stabilita dal costruttore, è la 


seguente: 

Tastiera 0 

Registratore 1 

Interfaccia RS-232 2 

Video 3 

Stampante 4 o 5 

Disk-driver 8 


■ Dopo il secondo numero può esserne inserito un terzo separato anco¬ 
ra con una virgola dal secondo, che ha significato diverso a seconda 
della periferica selezionata. 

L’impiego più comune riguarda il registratore e la stampante, nel qual 
caso il terzo numero ha i seguenti significati: 


Registratore 0 
1 
2 

Stampante 0 
7 


lettura di un file da nastro 

scrittura in un file su nastro 

scrittura con indicatore di fine nastro al termine 

apre in modalità maiuscole/grafici 

apre in modalità testo. 


■ Dopo il terzo numero, separata da una virgola, può essere immessa 
una stringa, che assume significato diverso per le diverse unità: 


— se la OPEN ha per oggetto la stampante o il video la stringa viene 
inviata alla periferica come se si effettuasse una PRINT# 

— se la OPEN interessa il registratore la stringa è utilizzata come 
nome del file 

— se la OPEN è diretta al disco la stringa è utilizzata come nome del 
file o come codice di comando. 


Per concludere la descrizione dell'istruzione OPEN consideriamo i se¬ 
guenti esempi: 

10 OPEN 9, 1 apre il canale verso il registratore (1) e indi¬ 

ca questo dispositivo col numero 9 

20 OPEN 12, 4 apre il canale verso la stampante (4) e indi¬ 

ca questo dispositivo col numero 12 
30 OPEN 1, 8, "FILE 1” apre (o crea) un file di nome FILE 1 sull'uni¬ 
tà disco (8) e indica questo file col numero 1. 
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CMD 

C SHIFT + M 


INPUT# 

I SHIFT + N 


GET# 


PRINT# 

P SHIFT + R 


CLOSE 
CL SHIFT + O 


FOR... TO... STEP... 

NEXT... 

F SHIFT + O...TO... 
STSHIFT4-E...NSHIFT+E... 


Dirotta l’esecuzione dei comandi e delle istruzioni che hanno per ogget¬ 
to una periferica verso un dispositivo specificato. Questo dispositivo de¬ 
ve essere stato aperto in precedenza (OPEN) e il numero ad esso asse¬ 
gnato dal programmatore deve seguire la parola CMD. Ad esempio, 

10 OPEN 1, 4 apre la stampante e le assegna il numero 1 

20 CMD 1 dirotta sulla stampante comandi ed istruzio¬ 

ni che hanno per oggetto una periferica 
30 PRINT A$ ogni istruzione PRINT è eseguita su carta an¬ 

ziché su video. 

Nell’esempio, per ripristinare la normale esecuzione su video, è neces¬ 
sario chiudere il dispositivo 1 (stampante) con una CLOSE. 

Ha funzionamento analogo a quello della INPUT, ma accoglie i dati da 
un qualsiasi file (aperto con una OPEN) il cui numero sia citato dopo il 
codice #. Ad esempio, 

10 OPEN 9, 1, 0, "FILE 1” apre su nastro il file FILE 1 in lettura, e gli 

assegna il numero 9 

20 INPUT #9, A$, B$ assegna alle variabili di stringa A$ e B$ il con¬ 

tenuto dei primi due records del file FILE 1 

Analoga alla GET, consente di scrivere un byte in un file precedentemente 
aperto. La sintassi è spiegata dal seguente esempio: 

10 OPEN 9, 1, 1, "FILE 1” apre su nastro il file FILE 1 in scrittura e gli 

assegna il numero 9 

20 LET A$ = ”C” 

30 GET #9, A$ scrive sul primo byte libero di FILE 1 il ca¬ 

rattere C 

Analoga alla PRINT, invia in scrittura una lista di dati (specificata nell’i¬ 
struzione) su un dispositivo aperto in precedenza con una OPEN. 

Al solito, il numero assegnato al dispositivo nella OPEN deve essere ci¬ 
tato dopo il codice #. Ad esempio, 

10 OPEN 9, 4 apre la stampante e le assegna il numero 9 

20 LET A$ = "MANUALI ” 

30 LET B$ = "DI " 

40 LET C$ = "BASIC" 

50 PRINT #9, A$; B$; C$ invia in stampa le tre stringhe; il risultato 

è MANUALI DI BASIC 

Chiude un canale precedentemente aperto con una OPEN. Il numero as¬ 
segnato al canale deve essere citato dopo la parola CLOSE. Ad es., 

10 OPEN 9, 4 apre la stampante e le assegna il numero 9 

100 CLOSE 9 chiude la comunicazione con la stampante 

■ Istruzioni di controllo 

Sotto questa denominazione si raggruppano le istruzioni che, inserite in 
un programma, ne governano l’esecuzione, controllando il verificarsi di 
particolari condizioni e trasferendo di conseguenza il controllo alle di¬ 
verse linee del programma. 

Sono le istruzioni che consentono lo svolgimento di un loop, cioè l’attiva¬ 
zione ricorsiva di una certa sequenza di istruzioni. La sequenza da ripetere 
deve essere inclusa fra le istruzioni FOR... TO... STEP... e NEXT..., specifi¬ 
cando i limiti di variazione dell'indice del loope il passo. Adesempio, le linee 


33 





IF... THEN... 

IF... T SHIFT + H... 


GOTO... 

ON... GOTO... 

G SHIFT + O 
ON... G SHIFT + O... 


GOSUB... 

GO SHIFT + S 


RETURN 
RE SHIFT + T 


STOP 

S SHIFT + T 


END 

E SHIFT + N 


10 FOR 1 = 2 TO 10 STEP 2 per I che va da 2 a 10 con passo 2... 

20 PRINT I... sequenza da ripetere 

30 NEXT I ripeti per il prossimo valore di I 

determinano la stampa dei valori assunti dalla variabile I, e il risultato 
sarà la sequenza 2, 4, 6, 8, 10. 

Se l’indice del loop deve variare con passo 1 non è necessario specificare 

11 passo (STEP): 

10 FOR 1=1 TO 10 
20 PRINT I 
30 NEXT I 

L’uscita sarà la sequenza 1, 2, 3, 4, .... 10. 

È utile ricordare che all’uscita di un loop il valore dell’indice risulta sem¬ 
pre incrementato dal passo rispetto all’ultimo valore utile. 

La parola IF deve essere seguita da una condizione, al verificarsi della 
quale deve essere eseguita l’istruzione che segue la parola THEN (SE... 
ALLORA...). Di seguito sono mostrati alcuni esempi: 

10 IF A = B THEN C = 0 se A = B allora poni C=0 

10 IF A>B THEN GOTO 200 se A>B allora vai alla linea 200 

10 IF A<B THEN PRINT ”A MINORE DI B” 

10 IF A>B AND A>0 THEN GOTO 120 

È la tipica istruzione di salto. Il controllo passa alla linea di programma 
specificata dopo la parola GOTO. 

Nella prima forma il salto non è condizionato: se il programma incontra 
la linea 10 GOTO 1000 passa senz’altro ad eseguire la linea 1000. 

La seconda forma consente invece di condizionare il salto al valore di 
una variabile. 

La linea 10 ON A GOTO 10, 100, 1000 attiva il salto alla linea 10 se A= 1, 
alla linea 100 se A = 2, alla linea 1000 se A = 3. 

È l’istruzione di chiamata ad una subroutine; la parola GOSUB deve es¬ 
sere seguita dal numero di linea alla quale la subroutine inizia. 
Funziona in modo simile al GOTO, ma il sistema deve ricordare il punto 
dal quale è partito, perché, dopo aver eseguito la subroutine specifica¬ 
ta, il controllo deve tornare alla linea che segue quella contenente la 
chiamata. 

È l'istruzione che conclude le subroulines e che determina la restituzio¬ 
ne del controllo al programma chiamante. 

Determina l’arresto dell’esecuzione di un programma alla linea che con¬ 
tiene l'istruzione STOP, fino all’immissione da tastiera del comando 
CONT. Sul video appare la scritta BREAK ERROR IN LINE... seguita dal 
numero della linea contenente lo STOP. 

Si impiega spesso per la correzione dei programmi, dal momento che, 
sotto interruzione, è possibile chiedere la stampa di tutte le variabili uti¬ 
lizzate dal programma. 

Conclude il programma, e serve per segnalare al sistema la fine dell’ese¬ 
cuzione. Il sistema risponde col messaggio READY. 

L'istruzione END può essere utilizzata come lo STOP, con la differenza 
che sul video non appare alcun riferimento alla linea che la contiene. 
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DIM 

D SHIFT + I 


DEF FN 
D SHIFT + E FN 


Le funzioni 


ABS 

INT 


■ Istruzioni di definizione 

Sono le istruzioni che consentono al programmatore di definire funzio¬ 
ni e di dimensionare variabili strutturate (array). 

Permette di stabilire le dimensioni di un array. Ricordiamo che un ar¬ 
ray è un insieme di variabili omogenee cui si può fare riferimento con 
un nome simbolico unico e con uno o più indici. 

Il dimensionamento di un array ad una dimensione (vettore) si ottiene 
con un'istruzione del tipo 

10 DIM A$(10) 11 elementi di tipo stringa (indice da 0 a 10) 

10 DIM A(10) 11 elementi di tipo reale (indice da 0 a 10) 

10 DIM A% (10) 11 elementi di tipo intero (indice da 0 a 10) 

11 dimensionamento di un array a due dimensioni (matrice) con 3 righe 
e 5 colonne si ottiene nel modo 

10 DIM A$(2,4) 15 elementi di tipo stringa (indice di riga da 0 a 2, 

indice di colonna da 0 a 4) 
10 DIM A(2,4) 15 elementi di tipo reale (indice di riga da 0 a 2, 

indice di colonna da 0 a 4) 

10 DIM A%(2,4) 15 elementi di tipo intero (indice di riga da 0 a 2, 

indice di colonna da 0 a 4) 

11 dimensionamento di un array a più dimensioni si ottiene in modo 
analogo: 10 DIM A$(2,4,3) 

Permette al programmatore di definire funzioni non previste nel linguag¬ 
gio Basic. Ad esempio, la linea 

10 DEF FNA (X) = X/2 
definisce la funzione A(X) = X/2. 

11 valore V che la funzione assume per un particolare valore di X, ad esem¬ 
pio 10, può essere chiamato nel programma con la semplice istruzione 
20 V = FNA(10). Risulterà V = 5. 

■ Istruzioni di commento 

Per migliorare la leggibilità dei programmi spesso risulta utile inserire 
tra le istruzioni alcuni commenti. Ciò può essere fatto in maniera molto 
semplice utilizzando l’istruzione REM. 

Le funzioni previste dal Basic del CBM-64 saranno qui suddivise, con ri¬ 
ferimento al loro impiego nella programmazione più che alla struttura 
funzionale, secondo il seguente schema: 

■ funzioni numeriche 

■ funzioni matematiche 

■ funzioni di stringa 

■ funzioni di stampa 

■ funzioni di sistema 

■ Funzioni numeriche 

Restituisce il valore assoluto (valore privato del segno) di un’espressio¬ 
ne: 10 A = ABS (-6/2) fornisce A = 3. 

Restituisce il più grande intero minore o uguale al valore di un’espres¬ 
sione: 10 A = INT (-7.12) fornisce A = -8, mentre 20 A = INT (9.42) forni¬ 
sce A=9. 
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SGN 

ASC 

VAL 

RND 

SIN 

cos 

TAN 

ATN 

SQR 

EXP 

LOG 

CHR$ 

STR$ 

LEN 

LEFT$ 

RIGHT$ 

MID$ 

POS(X) 


Restituisce 1,0, - 1 a seconda che il risultato di un’espressione sia posi¬ 
tivo, nullo o negativo: 10 A = SGN (-9*2) fornisce A=-l. 

Restituisce il codice ASCII (numerico) del primo carattere di una strin¬ 
ga. Ad esempio, se A$ = ”TIPO" la linea 10 A = ASC(A$) fornisce A = 84. 

Restituisce il valore numerico di una stringa di cifre. Ad esempio, se 
A$ = ” - 125.3” (stringa), la 30 A = VAL (A$) fornisce A = - 125.3 (valore nu¬ 
merico). 

Genera un numero casuale compreso fra 0 ed 1 (estremi esclusi): 
la linea 10 A = RND (0) fornisce in A un valore casuale compreso fra 0 e 1. 

■ Funzioni matematiche 

Calcola il seno trigonometrico dell’argomento, che deve essere espresso 
in radianti. Ad esempio, se X=3.14... (pi greco), la linea 10 A = SIN(X) for¬ 
nisce A = 0. 

Calcola il coseno trigonometrico dell'argomento, che deve essere espresso 
in radianti. 

Calcola la tangente trigonometrica dell'argomento, che deve essere espres¬ 
sa in radianti. 

Calcola l’arcotangente dell’argomento. Il risultato è espresso in radianti. 

Calcola la radice quadrata dell’argomento, che non deve essere negativo. 

Calcola l’esponenziale (e x ) di un numero x, che deve essere minore di 88.03, 
altrimenti si ha overflow. 

Calcola il logaritmo naturale (o di Nepero, in base e) di un numero po¬ 
sitivo. 

■ Funzioni di stringa 

Restituisce il carattere corrispondente al codice ASCII specificato nel¬ 
l’argomento: 10 A$ = CHR$ (84) fornisce A$ = ”T”. 

Restituisce una stringa di caratteri uguali a quelli che compongono l’ar¬ 
gomento. Ad esempio, se X = 192.3 (numerico), 10 A$ = STR$(X) fornisce 
A$ = ”192.3” (stringa). 

Calcola il numero di caratteri di una stringa. Ad esempio, se A$ = "BASIC”, 
la linea 10 A = LEN(A$) fornisce A = 5. 

Estrae i caratteri più a sinistra di una stringa. Se A$ = "BASIC” la linea 
10 B$=LEFT$(A$,2) estrae i due caratteri più a sinistra di A$, e fornisce 
B$ = ”BA”. 

Analoga alla precedente, estrae i caratteri più a destra, con la stessa 
sintassi. 

Estrae i caratteri interni di unastringa: 10B$ = MID$(A$,2,3)estrae i carat¬ 
teri centrali di A$ a partire dal secondo e per una lunghezza di 3 caratteri. 

■ Funzioni di stampa 

Restituisce la posizione corrente del cursore (colonna); X è un argomen¬ 
to fittizio, che può assumere un valore qualsiasi: 10 A = POS(X) restitui¬ 
sce in A il numero della colonna sulla quale è posizionato il cursore. 
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TAB 

Posiziona il cursore su una determinata colonna dello schermo. Se il cur¬ 
sore si trova già a destra della colonna specificata il posizionamento è 
eseguito sulla riga successiva del video. È utilizzata sempre in una PRINT: 
la 10 PRINT TAB(10) posiziona il cursore in colonna 11 (la numerazione 
parte da 0). 

SPC 

Sposta il cursore verso destra. È utilizzata sempre in una PRINT: l’istru¬ 
zione 10 PRINT SPC(10) sposta il cursore di 10 colonne. 

PEEK 

■ Funzioni di sistema 

Restituisce il valore (decimale) contenuto in un byte di memoria specifi¬ 
cato: 10 A = PEEK (36879) fornisce in A il contenuto della locazione di 
memoria di indirizzo 36879. 

FRE(X) 

Restituisce il numero di bytes di memoria liberi. L'argomento X è fitti- 
zio, e può assumere qualsiasi valore: 10 A = FRE(0) fornisce in A il nume¬ 
ro di bytes liberi. 

TI 

Restituisce il tempo trascorso dall’accensione della macchina espresso 
numericamente in sessantesimi di secondo. La linea 10 PRINT TÌ/60 vi¬ 
sualizza il numero di secondi trascorsi dall’accensione. 

TI$ 

Restituisce una stringa di sei caratteri che contiene il tempo trascorso 
dall’accensione in ore, minuti, secondi: OOMMSS. 

Avvertenza 

A partire dal programma «La torre di Hanoi» (pag. 77) saranno utilizzati 
gli sprites, la bit-map e nuovi insiemi di caratteri grafici definiti dall’u¬ 
tente. Per inizializzare tutte le varie proprietà grafiche del CBM-64 è con¬ 
veniente servirsi di quella parte di memoria in cui normalmente sono ca¬ 
ricati i programmi utente. 

Di conseguenza questi ultimi saranno caricati a partire dalla locazione 
di memoria di indirizzo 16384. 

È quindi indispensabile, prima di digitare i listati presentati o di caricare 
i programmi dal supporto magnetico (disco o nastro), immettere i comandi 

POKE 44,64 RETURN 

POKE 16384,0 RETURN 

Il primo (POKE 44,64) cambia il contenuto del registro 44 che punta al¬ 
l’inizio della zona dei programmi utente. Inserendo il valore 64 all'inter¬ 
no di questo registro, il sistema caricherà un qualsiasi programma che 
gli venga sottoposto a partire dalla locazione 16384, lasciando libere le 
locazioni di memoria di indirizzo più basso. 

Il secondo comando (POKE 16384,0) azzera il contenuto della locazione 
iniziale della zona di memoria dove andrà caricato il programma. 

Nel caso l’utente dimenticasse di inserire i due comandi POKE prima 
di iniziare a digitare o a caricare un programma, non riuscirà a farlo 
eseguire. 

In tal caso non rimarrà che salvare nuovamente il programma su sup¬ 
porto magnetico (se non ce n’è già una copia), immettere i due comandi 
POKE e, per ultimo, ricaricare il programma, che finalmente potrà esse¬ 
re eseguito. 

Ricordiamo che questa procedura è quella che si deve seguire sempre 
per qualsiasi programma che impieghi gli sprites, la grafica in modalità 
bit-map e nuovi insiemi di caratteri definiti dall’utente. 
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Poker d’assi 



Ognuno di noi, almeno per sentito dire, conosce il gioco del poker. Vo¬ 
gliamo cercare di realizzare un programma che consenta ad un singolo 
giocatore di servirsi cinque carte scelte a caso da un ipotetico mazzo, di 
cambiarne alcune e di sapere dal CBM-64 quale punteggio ha ottenuto. 
Il nostro programma dovrà essere in grado di: 

■ presentare cinque carte coperte sul video 

■ scoprire le cinque carte 

■ aspettare che il giocatore comunichi quali carte vuole cambiare 

■ cambiare le carte scartate dal giocatore 

■ valutare il punteggio ottenuto. 


Se il giocatore lo desidera, il calcolatore presenterà il sommario dei pun¬ 
teggi ottenuti per poi riprendere l’esecuzione dall’inizio. 


Analisi del 
problema 


r 




Il programma dovrà simulare il mescolamento di un mazzo di carte, dal 
quale saranno prelevate successivamente le carte da fornire inizialmen¬ 
te al giocatore e quelle utilizzate per cambiare le carte scartate. Il mazzo 
sarà rappresentato da due vettori VA e SE di 32 elementi ciascuno: i va¬ 
lori VA(I) e SE(I) rappresentano rispettivamente il valore e il seme dell’I- 
esima carta del mazzo. 

Il mescolamento del mazzo potrà essere effettuato con scambi casuali 
degli elementi dei vettori. La presentazione delle carte distribuite al gio¬ 
catore potrà avvenire 



■ disegnando sul video i contorni delle cinque carte 

■ colorando l'interno di grigio, per rappresentare il dorso delle carte 

■ sostituendo infine al grigio gli adatti simboli grafici per simulare lo 
scoprimento delle carte. 

Il programma porrà poi i numeri 1,2, 3, 4, 5 sul video in corrispondenza 
.«/ alle carte mostrate e il giocatore potrà specificare mediante il loro nu¬ 
mero le carte che intende cambiare: queste carte saranno di nuovo co¬ 
perte, sostituite e poi scoperte, visualizzando i nuovi valori che sostitui¬ 
scono le carte cambiate. 

Una volta calcolato e presentato sul video il punteggio ottenuto, il CBM-64 
dovrà 


■ chiedere al giocatore se vuole il sommario dei punteggi ottenuti nelle 
partite precedenti 

■ in caso di risposta affermativa, visualizzare una tabellina che asso¬ 
cia ad ogni punteggio del poker il numero di volte che tale punteggio 
è stato ottenuto nelle partite effettuate. 
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Diagrammi 
di flusso 


II mescolamento delle carte 
avviene con una sequenza 
di scambi di carte a coppie 
o, più esattamente, 
scambiando l'una dopo 
l'altra tutte le carte, a 
partire dalla prima, con 
altre carte scelte a caso. 

Il calcolo del punteggio si 
compie determinando 
dapprima se le carte sono 
disposte in scala, e quindi, 
in caso negativo, 
verificando la presenza 
degli altri punteggi, come 
la coppia, la doppia coppia, 
il tris, il full, il colore, il 
poker. Se si è verificata 
contemporaneamente la 
presenza di una scala a 
quella di un colore se ne 
deduce la presenza di una 
scala reale. 

Il risultato è presentato 
visualizzando il punteggio 
ottenuto, facendo 
lampeggiare il risultato sul 
video ed accompagnando la 
visualizzazione con un 
suono. 


»... 3. 



Z Visualizza 

le carte 
coperte 

V 

Z Scopre le 

carte 


Seleziona le 
carte da cambiare 


Z Copre le carte 

da cambiare 

Z Scopre le 

carte 

sostituite 


Calcola il 
punteggio 


Z Visualizza 

il risultato 

< Si vuole il \ y J Visualizza 
sommario? /*! 11 sommarlo 


o 

t 


end JK 


Altra 

partita? 


y-o 
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Il programma 


Nella prima parte del 
programma è fissata la 
dimensione dei vettori VA e 
SE e degli altri vettori e 
matrici utilizzati nel corso 
del programma (linea 510). 
Le linee 560 +600 
inizializzano i vettori VA e 
SE mentre le linee 
640+ 680 e 720+740 
inizializzano 

rispettivamente la matrice 
CC, contenente le 
coordinate degli spigoli 
delle carte, ed il vettore RI 
che contiene i risultati. 

La linea 810 presenta il 
titolo del programma. 

Le istruzioni 850+940 
controllano la 
visualizzazione dei cinque 
rettangoli che 
rappresentano le carte 
coperte (routine 2550 per i 
contorni delle carte e 
routine 2730 che colora 
di grigio l’interno della 
carta). 

L’istruzione 970 ci porta 
alla routine 2400 che 
simula il mescolamento 
delle carte. 

Le istruzioni 1010+1140 
visualizzano le cinque carte 
scoperte (routines 2550 e 
2820). 

La linea 1130 serve a 
generare un breve ritardo 
per rendere il gioco più 
riflessivo (routine 2680). 

Le linee 1180+1210 
individuano ognuna delle 5 
carte con numeri da 1 a 5 
(routine 3510). Le istruzioni 
1310+1330 inizializzano il 
vettore FG che serve a 
contenere i numeri delle 
carte da cambiare; 


100 REM **************** 

110 REM **POKER D'ASSHW 
120 REM «***IMI*#*Wi|l««*«* 

140 REM VARIABILI UTILIZZATE 


160 REM APO 
170 REM FGC) 

180 REM BUO 
190 REM SI 
200 REM VHO.SEO 
210 REM I,J,I1 
220 REM CCO 
230 REM RIO 
240 REM SF 
250 REM R* 

260 REM PT 
270 REM 8V,BS 
280 REM FC 
290 REM PU 
300 REM CS 
310 REM SE* 

320 REM NU,NUf 
330 REM IM 
340 REM FG 

350 REM PF 

351 REM VI 

352 REM PG* 


'MEMORIZZA LE PRIME CINQUE CARTE DEL MAZZO 
: VETTORE CHE SPECIFICA LE CARTE DA CAMBIARE 
^ INDICA QUANTE COPPIE 0 TRIS COMPONGONO IL PUNTEGGIO OTTENUTO 
: CHIP GENERATORE DI NOTE 

: CONTENGONO I VALORI ED I SEMI DEL MAZZO DI 32 CARTE 
: CONTATORI DI CICLO 

■POSIZIONI SUL VIDEO DEGLI SPIGOLI DELLE CARTE 
: MEMORIZZA LE OCCORRENZE DEI PUNTEGGI OTTENUTI 
: COLORE DEI CARATTERI DA VISUALIZZARE 
: STRINGA DI USO CORRENTE 

■POSIZIONE DELLA CARTA DA SOSTITUIRE A QUELLA CAMBIATA 
•BUFFER TEMPORANEI 

SE E' PARI A 1, LE CARTE DATE HANNO LO STESSO SEME 
: DA 0 A 8;PUNTEGGIO OTTENUTO 
: VARIABILE CONTENENTE UN NUMERO CASUALE 
: SEME DELLA CARTA DA VISUALIZZARE 
■VALORE DELLA CARTA DA VISUALIZZARE 
: USATA NELLA ROUTINE DI ORDINAMENTO 
■ SE E' PARI A 1 IL PUNTO PUÒ' ESSERE UNA SCALA 
■NUMERO DI PARTITE GIOCATE 
: CIRCUITO VIDEO DEL C64 
: NOME PROGRAMMA 
370 REM CRRRTTERI DI CONTROLLO 
390 REM CHR*<147)-CANCELLA IL VIDEO»"!" 

400 REM CHR*C144):CARATTERI DI COLORE NERO="i” 

410 REM CHRSC19) -CURSORE IN ALTO A SINISTRA»"!! 1 ' 

420 REM CHR*(18) -CARATTERI IN BIANCO SU NER0»"S" 

430 REM CHR*(17) -CURSORE IN BASSO DI UNA LINEA»"»" 

440 REM CHR*(29) : CURSORE A DESTRA DI UN CARATTERE»"»!" 

450 REM CHR*(145) : CURSORE IN ALTO DI UNA LINEA»"!" 

460 REM CHR*C157>: CURSORE A SINISTRA DI UN CARATTERE»"!!" 

470 REM CHRSC146)CARATTERI IN NERO SU BIRNCO»"B" 

490 REM DIMENSIONO VARIABILI 

510 DIM FG(4),AP(4),BU(1), VAC31), SE(31),CC(4,1)/RI(8) 

520 REM PRESENTAZIONE NOME PROGRAMMA 

522 PG*«"P OKER D'RSS I":G0SUB 62000 

540 REM INIZIALIZZO I VETTORI VAC.) E SEC.) (VALORI E SEMI DELLE CARTE) 

560 FOR 1=0 TO 3 
570 FOR J=0 TO 7 
580 VRCI*8+J)=J+7 
590 SECI*8+J)=I 
600 NEXT J ; NEXT I 

620 REM INIZIALIZZO MATRICE CCC.,.) (COORDINATE SPIGOLI DELLE CARTE) 

640 CC(0,0)= 4-CC(0(1)»3 
650 CC(1/0)=11:CC(1,1)=3 
660 CC(2,0)=13 : CC(2,1)=3 
670 CC(3,0)=25 : CC(3,1)=3 
680 CC(4,0)=32 ; CC(4,1)=3 

700 REM DIMENSIONO E INIZIALIZZO IL VETTORE DEI RISULTATI 
720 FOR 1=0 TO 8 
730 RICI)«0 
740 NEXT I 

760 REM INIZIA IL GIOCO 

780 REM IMPOSTO IL COLORE DELLO SFONDO E DEI CARATTERI 
800 POKE VI+32.1-POKE VI+33.1-PRINT CHR*C144); 

810 PRINT CHR*(147);CHRSC18);TABC9);"P OKER D' A S S I" 

830 REM DISEGNO 5 CARTE BIANCHE UNA PER VOLTA CON LO SFONDO 

850 FOR 1=0 TO 4 

870 REM CARTA BIANCA 

890 GOSUB 2550 

910 REM SFONDO CARTA 

930 GOSUB 2730 

940 NEXT I 

955 REM MISCHIO LE CARTE 
970 GOSUB 2400 

990 REM DISEGNO, UNA PER VOLTA, LE PRIME CINQUE CARTE DEL MAZZO 

1010 FOR 1=0 TO 4 

1030 REM CANCELLO LO SFONDO 

1050 GOSUB 2550 

1070 REM VISUALIZZO LA CARTA I-ESIMA 

1090 GOSUB 2820 

1110 REM RITARDO 

1130 GOSUB 2680 

1140 NEXT I 

1160 REM ORA VISUALIZZO I NUMERI DA 1 A 5 SOTTO LE CINQUE CARTE 

1180 SF=144 

1190 FOR 1=0 TO 4 

1200 GOSUB 3510 

1210 NEXT I 

1230 REM VISUALIZZO SCRITTE 

1245 PRINT CHR*C17)JCHR*C17);CHR*(17);CHR*C17> 


1250 PRINT "1..5 
1260 PRINT "'R 
1270 PRINT "'C 


INDICA LE CARTE DA CAMBIARE” 

ANNULLA INDICAZIONI" 

CAMBIA CARTE/SERVITO" 

1290 REM AZZERO VETTORE FG(.).I SUOI VALORI A 1 INDICANO CARTA DA CAMBIARE 
1310 FOR 1=0 TO 4 
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le istruzioni 1370+1480 
accettano un comando o il 
numero di una carta. Se il 
programma riceve il 
numero di una carta dal 
giocatore, lo stesso numero 
rappresentato sul video al 
di sotto della carta che si 
sta indicando è visualizzato 
in rosso per effetto delle 
istruzioni 1370+1410. Le 
linee 1520+1560 annullano 
le scritte sul video 
realizzate con le istruzioni 
PRINT (linee 1245 + 1270). 

Le istruzioni 1600+1690 
cancellano dal video i 
numeri che individuano le 
carte da cambiare e 
pongono lo sfondo grigio 
sulle carte selezionale. Le 
linee 1730+1800 realizzano 
il cambio delle carte 
selezionate con le prime 
carte del ntazzo prese dai 
vettori VA ed SE e le 
1840+1860 visualizzano le 
nuove carte prese dal 
mazzo. 

Le istruzioni 1930+1960 
determinano se si è 
ottenuto come punteggio il 
colore. 

Le linee 2030+2050 
memorizzano i valori delle 
carte visualizzate e la 2090 
chiama la routine 3710 che 
determina il punteggio 
ottenuto. 

Le 2130, 2140 controllano se 
il punto realizzato è una 
scala reale, l'istruzione 2220 
porta alla routine 4240 che 
visualizza il punteggio 
ottenuto. Le istruzioni 
2255 + 2330 chiedono al 
giocatore se vuole un 
sommario dei punteggi 
ottenuti nelle partite 
giocate: se la risposta è sì 

10 visualizzano chiamando 

11 sottoprogramma alla 
linea 4600, altrimenti 
l'utente può terminare o 
giocare di nuovo. 

In coda al programma si 
trovano due routines (linea 
61000 e linea 62000): la 


1320 FGCI)=0 
1330 NEXT I 

1330 REM NUMERO SOTTO LA CARTA I-ESIMA IN NERO 0 ROSSO A SECONDA DEL VALORE FOCI 

> 

1370 FOR 1=0 TO 4 
1380 SF=144 

1390 IF FGCI)=1 THEN SF=150 
1400 GOSUB 3510 
1410 NEXT I 

1430 REM ORA LEGGO IL COMANDO 
1450 GET A*:IF A*="" THEN GOTO 1450 

1460 IF A*>="1" AND R*<="5" THEN FGCVALCA*)-1)=1 GOTO 1370 
1470 IF A*="R" THEN GOTO 1310 
1480 IF AfO"C"THEN GOTO 1450 

1500 REM ORA CANCELLO LE TRE RIGHE CHE RICHIEDEVANO UN COMANDO 
1520 PRINT CHR$<19); 

1530 FOR 1=1 TO 15 ; PRINT : NEXT I 
1540 FOR 1=1 TO 3 
1545 REM STAMPO 33 SPAZI 
1550 PRINT " 

1560 NEXT I 

1580 REM ORA CANCELLO I NUMERI SOTTO LE CARTE. LI DISEGNO CON IL COLORE BIANCO 

1600 SF=5 

1610 FOR 1=0 TO 4 

1620 GOSUB 3510 

1630 NEXT I 

1650 REM ORA DISEGNO LO SFONDO DELLE CARTE INDICATE CON 1 IN FGC.) 

1670 FOR 1=0 TO 4 

1680 IF FGC I )*1 THEN GOSUB 2730 

1690 NEXT I 

1710 REM ORA CAMBIO LE CARTE. PRIMA NEI VETTORI VAC.)' E SEC.). E POI SUL VIDEO 

1730 PT=5 

1740 FOR 1=0 TO 4 

1750 IF FGCI>=0 THEN GOTO 1800 

1760 BV=VACI) : BS=SECI) 

1770 VACI)=VACPT>•SECI)=SECPT) 

1780 VACPT)=BV : SECPT)=BS 
1790 PT=PT+1 
1300 NEXT I 

1820 REM ORR VISUALIZZO LE CARTE CAMBIATE SUL VIDEO 
1840 FOR 1=0 TO 4 

1850 IF FGCI>=1 THEN GOSUB 2680 GOSUB 2550:GOSUB 2820 
1860 NEXT I 

1380 REM ORA CALCOLO IL PUNTEGGIO OTTENUTO 

1910 REM CONTROLLO SE LE CARTE SONO TUTTE DELLO STESSO COLORE CFC=1> 

1930 FC=1 

1940 FOR 1=1 TO 4 

1950 IF SECDOSEC0) THEN FC=0 

1960 NEXT I 

1980 REM SE FC=1 LE CARTE SONO TUTTE DELLO STESSO COLORE 

2010 REM ORA COPIO I VRLORI DELLE CARTE VISUALIZZATE NEL VETTORE APC.) 

2030 FOR 1=0 TO 4 
2040 APC I )=VACI ) 

2050 NEXT I 

2070 REM CONTROLLO IL PUNTEGGIO OTTENUTO 
2090 GOSUB 3710 

2110 REM CONTROLLO SE HO FATTO SCALA REALE 0 COLORE 

2130 IF FC=1 AND PU=4 THEN PU=8 

2140 IF FC=1 AND PU=0 THEN PU=6 

2160 REM MEMORIZZO PUNTEGGIO OTTENUTO 

2180 RICPU)=RICPU)+1 

2200 REM STAMPO IL RISULTATO 

2220 GOSUB 4240 

2240 REM ORA CHIEDO SE SI VUOLE IL SOMMARIO OD ALTRO 

2255 PRINT:PRINT:PRINT:PRINT PRINT 

2260 PRINT "'8': SOMMARIO 

2270 PRINT »'G': NUOVA PARTITA" 

2280 PRINT "'F': PER FINIRE"; 

2230 GET Af : IF A$="" THEN GOTO 2290 

2300 IF A$="G" THEN GOTO 810 

2310 IF A*="S" THEN GOSUB 4600 : GOTO 810 

2320 IF A*="F" THEN POKE 53280,14 :POKE 53281,6 PRINT "1X5" : END 
2330 GOTO 2290 

2350 REM INIZIANO LE SUBROUTINES 

2330 REM SUBROUTINE CHE MESCOLA DUE VOLTE LE CARTE NEI VETTORI VAC.) ED SEC.). 
2400 CS=RNDC-TI)#1000 
2410 FOR J=0 TO 1 
2420 FOR 1=0 TO 31 

2430 BV=VACABSC31*J-1)):BS=SECABSC31#J-1)) 

2440 CS=RNDCCS)#32 

2450 SECABSC31#J-I))=SECCS) 

2460 VACABSC31#J-I))=VACCS) 

2470 VACCS)=BV 
2480 SECCS)=BS 
2490 NEXT I 
2500 NEXT J 
2510 RETURN 

2530 REM SUBROUTINE: DISEGNO UNA CARTA BIANCA NELLA LOCAZIONE I-ESIMA 
2550 PRINT CHRfCIS). 

2560 FOR J=1 TO CCCI,1)-1:PRINT:NEXT J 
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prima serve ad inizializzare 
le costanti e la seconda 
stampa il titolo del 
programma. 


2370 PRIHT TAB<CC<I,0>);" -- 

2580 PRINT TAB<CC<1,0)),"I !" 

2580 PRINT TAB(CC(I,0)>; "I I” 

2600 PRIHT TAB<CCCI,0)),"l I" 

2610 PRIHT TflB<CC<I,0>>;"I I" 

2620 PRINT TABCCCCI.0));"I I" 

2630 PRIHT TRB<CCn-0>); " ’- 

2640 RETURN 

2660 REM SUBROUTINE : RITARDO 
2680 POR J=1 TO 300 NEXT J 
2630 RETURH 

2710 REM SUBROUTINE DISEGNO DORSO DELLA CARTA NELLA LOCAZIONE I-ESIMA 

2730 PRIHT CHRf<13)J 

2746 FOR J=1 TO CCCI,1) PRINT NEXT J 

2750 FOR J-l TO 5 

2760 PRIHT TABtXC< 1,0) 11 

2770 NEXT J 

27S0 RETURN 

2800 REM SUBROUTINE DISEGNO LA CARTA CA-ES1MA NELLA POSIZIONE I-ESIHR 

2320 PRIHT CHR*<19); 

2330 FOR J=1 TO CCCI,1)-1 PRINT-NEXT J 
2840 PRIHT TABCCCCI,0)>; 

2360 REM CONTROLLO IL SEME DELLA CARTA 
2330 IF SE< I )=0 THEN SE* = “!*r 

2330 IF SE<I)=1 THEN SEt=":S*” 

2300 IF SE(I)=2 THEN SE*="■*'' 

2310 IF SE<I>=3 THEN SE*="M" 

2330 REM DISEGNO IL SEME DELLA CARTA 

2350 PRINT CHR$< 17) ; CHR*<17) ; CHR*(17), CHR*(29)«CHR*(29), 

2360 PRIHT SE*; 

2980 REM DISEGNO IL NUMERO DELLA CARTA 

3010 REM MI POSIZIONO SULLO SPIGOLO <IN ALTO A SINISTRA) DELLA CARTA 
3030 PRINT CHR*<145);CHR*a45).CHR*<157);CHR*(15?i; 

3050 REM CRLCOLO E STAMPO IL NUMERO (VALORE) DELLA CARTA 
3070 NU=VA(I) 

3080 IF NUC-10 THEN NU*=STR*<NU) 

3030 IF NU=11 THEN NU*=" J" 

3100 IF NU=12 THEN NU*=” Q" 

3110 IF NU=13 THEN HU*=" K" 

3120 IF NU=14 THEN NU*=" A" 

3140 REM TOLGO LO SPAZIO BIANCO IN TESTA A NU* 

3160 NU*=RIGHT*<NU*,LENCNU*)-1 ) 

3170 PRINT NU*; 

3190 REM ORA LO STAMPO NELLO SPIGOLO IN BASSO A DESTRA 
3220 REM SE IL NUMERO E' 10,INDIETRO DI UNO SPAZIO 
3240 IF NU*=" 10" THEN PRINT CHR*U57), 

3250 PRINT CHR*<17);CHR*(17);CHR*<17);CHR*(17);CHR*<29>; 

3270 REM SE ORA IL NUMERO E' 10', DEVO SPOSTARMI DI UNO SPAZIO A SINISTRA 
3290 IF NU*-"10" THEN PRINT CHR*<157); 

3300 PRINT NU*. 

3320 REM ORA REIMPOSTO I CARATTERI NERI 
3340 PRINT CHR*C44); 

3360 REM ORA EMETTO UN SUONO DI FREQUENZA PROPORZIONALE AL VALORE DELLA CARTA 

3380 POKE SI+24,15 

3330 POKE SI,0 

3400 POKE SI+5,0 

3410 POKE SI+6-240 

3420 POKE SI+1,104XHU-6) 

3430 POKE SI+4,0 POKE SI+4,17 
3440 FOR 11=1 TO 200;NEXT 11 
3450 POKE SI+4,0 
3460 POKE SI+24,0 
3470 RETURN 

3430 REM SUBROUTINE : VISUALIZZO IL NUMERO 1+1 SOTTO LA CARTA I-ESIMA 
3510 PRINT CHR*a9),TA£<CCa,G)), 

3530 REM IL CURSORE E' SULL'ANGOLO IN ALTO A SINISTRA DELLA CARTA I-ESIMA 
3550 PRINT CHR*<SF>, 

3560 FOR 11=1 TO 3 
3570 PRINT CHR*<17); 

3580 NEXT II 

3598 PRINT " ";CHR*<18>;STR*(1+1);" n .CHR*<146) 

3610 REM RIPRISTINO IL COLORE NERO PER I CARATTERI 
3630 PRINT CHR*<144), 

3640 RETURN 

3660 REM SUBROUTINE DETERMINO PUNTEGGIO 
3630 REM ORDINO IL VETTORE AP' .) 

3710 FOR 1=0 TO 3 

3720 IM=I 

3730 FOR J=I TO 4 

3740 IF APvJKRPCIM) THEN IM=J 

3750 HEXT J 

3770 REM SCAMBIO IL VALORE IN POSIZIONE IM CON GUEI.LO IN POSIZIONE I 
3790 BV=fiP<I) 

3300 AP(I>=AP<IM) 

3310 AP<IM>=BV 
3320 NEXT I 

3340 REM CONTROLLO SE E' SCALR 
3860 FG=! 

3070 FOR 1=0 TO 2 

3080 IF AP(1 + 1)C AP(1) + l THEN FG=0 
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3390 NEXT ! 

3900 1F FG=6 THEN POTO 3350 

3920 REM I PRIMI QUATTRO VALORI SONO IN SCALA. CONTROLLO IL QUINTO 
3940 IF <AP<4)=APC3>+1> OR CAP'.4)=14 AND AP<0>=7> THEN FU=4 RETURN 
3900 REM CONTO SE CI SONO RIPETIZIONI DELLO STESSO VRLORE 
3970 REM COPPIA.DOPPIA COPPIA.TRIS.FULL.POKER 

40O0 REM DATO CHE IL VETTORE E' ORDINATO,VALORI UGUALI SONO CONSECUTIVI 
4020 BU<0)®0 BU(2)=0 
4030 J=0 


4040 

4050 

4060 

4070 

4030 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4190 

4220 

4240 

4250 

4260 

4270 

4230 

4290 

4300 

4310 

4320 

4330 

4340 

4360 

4330 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4555 

4560 

4580 

4600 

4620 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4310 

4320 

60960 

60930 

61000 

61028 

61040 

61063 

61080 

61100 

61120 

61130 

612O0 

61210 

61220 


POR 1*0 TO 3 

IF RP<I+l)*flP<I> +HEN BU<J)=BU<J)+1 
IF APCI+l )OAP<I> AND BU<0TC'S THEN J~1 
ne;:t i 

REM ORA IN BUCO) E DUO HO IL PUNTEGGIO RAGGIUNTO LO CALCOLO 

IF BU'1O>=0 AND EUO--0 THEN PU=0 RETURN 

IF BU(G)=1 RND BUU)=0 THEN PU=l RETURN 

IF BU<0)=1 AND BU< 0 = 1 THEN F"J=2 RETURN 

IF BU'10>=2 AND EU0*0 THEH PU*3 RETURN 

IF BU<0)=2 AND BU< 0 = 1 THEN PU=5:RETURN 

IF BU(0>=1 AND BUO=2 THEN PU=5 RETURN 

IF BU<0)=3 AND BUO=0 THEN PU=7:RETURN 

REM UNO DEGLI IF PRECEDENTI E' SICURAMENTE VERIFICATO 

REM SUBROUTINE' VISUFiLIZZRZIONE DEL RISULTATO 

PRINT CHRXU9), 

FOR 1=1 TO 12:PRINT:NEXT I 
IF PU=0 THEN RETURN 
IF PU=1 THEN AX="COPPIA" 

IF PU=2 THEN A$="DOPPIA COPPIA” 

IP PU=3 THEN AX="TRI$" 

IF PU=4 THEN A*="SCALA" 

IF PU=5 THEH AX="FULL" 

IF PU=6 THEH At=-''COLORE" 

IF PU=7 THEN AX="POKER" 

IF PU=8 THEN AX="SCALA REALE" 

REM FACCIO LAMPEGGIARE IL RISULTATO ED EMETTO UN SUONO 

POKE SI+24,15 

POKE SI.0 

POKE SI+5,0 

POKE SI+6.240 

FOR 1=1 TO 20 

PRINT TAB<<40-LEN<AX))/2>,CHRXC18).RX 
PRINT CHRX<145); 

POKE $1+1.40 

POKE SI+4,0 FOKESI+4,17 

FOR J=1 TO 50:NEXT J 

PRINT TABI(40-LEN<AX))/2) i AX 

PRINT CHR*<145)1 

POKE SI+1.140 

POKE SI+4.0 

POKE SI+4,17 

FOR J=1 TO 100'NEXT J 

FOKE SI+4.0 

NEXT I 

POKE SI+24,0 
RETURN 

REM SUBROUTINE: VISUALIZZO SOMMARIO 
PF=3 


REM CONTO PARTITE FATTE 
FOR 1=0 TO 8 
PF=RKI)+PF 
NEXT I 

PRINT CHRX<147), 

PRINT TABO);CHRX<13);“F OKER S' H S S 1“ 
PRINT-PRINT "PARTITE GIOCATE:";PF 
PRINT: PRINT 
PRINT RI<0);“ NULLA" 

PRINT RIC1);" COPPIA" 

FRINT RIC2);" DOFPIA COPPIA" 

PRINT RI<3)," TRIS" 

PRINT RI<4);" SCALA" 

PRINT RI<5>;" FULL" 

PRINT RI<6);" COLORE" 

PRINT RI(7);“ POKER" 

PRINT RI<8)." SCALA REALE" 

PRINT PRINT "'C PER PROSEGUIRE": 

GET AX : IF RXO"G" THEN GOTO 4310 
RETURN 

REM SUBROUTINE:INIZIALIZZAZIONE COSTANTI 
REM CIRCUITO VIDEO 
VI=53243 

REM CIRCUITO SUONO 
31=54272 

REM MEMORIA VIDEO 
MV=1024 

REM MEMORIA COLORC 
MC=55236 


REM INIZIALIZZAZIONE CHIP SUONO 
FOR 1=0 TO 24 
POKE SI+1,0 
NEXT I 
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CI980 REM SUEROUTINE : STAMPO IL TITOLO EEL PRGGRRMMR MEMORIZZATO IH PC* 
68000 GOOUE 61300 
62010 POKE VI 132,15 
62020 POKE VI+33,15 

62030 primt "Tannar, 

C204O PRINT TOSTO ; " r-1" 

62050 FOR 1-1 TO 5 

62860 PRINT T0B<6>;"I I" 

coorti me::t i 

62000 PRINT TFIE<6> • " --- 

62090 PRINT TOSCO "aMKSMSHDIGITn rFXTURtIS PER PROSEGUIRE" 

62108 FRI UT "SMHJKT 
62110 FOR 1=1 TO 3 
62120 PRINT Tf®<2, 

62130 POP J=1 TO 26 
62140 PRINT "rsa 

62158 ;ie;;t j 

62160 PRIHT 
621T0 he: :t I 

62190 REM ORO SCRIVO IL TITOLO 

62210 PRIHT "sftKaftftKW" : T0ETC4C I.ENCPGi v .v‘2X, "»";PÙÌ 
62220 OET 2 : 

62230 IF 291 . CURI :3, TIC. 1 ! GOTO S222C 
62240 PRINT "ria", 

62250 RCT'JRH 








Un medico poco serio 

Questo progetto porterà alla realizzazione di un gioco che simulerà il com¬ 
portamento di un azzeccagarbugli della medicina. Il programma si com¬ 
porterà come un medico (non molto affidabile) dal quale un paziente si 
reca per un consulto. Esso porrà al paziente alcune domande per indivi¬ 
duare la fantasiosa sindrome che lo affligge; alla fine presenterà una dia¬ 
gnosi e suggerirà una cura, insieme alle controindicazioni per la cura pro¬ 
posta. La finalità è quella di giocare con il computer e quindi non è il 
caso di prendere sul serio la diagnosi fornita. 


Analisi del 
problema 


JJJUtftailliMJt'N W 

P- |B»W 



All’inizio, il programma si dovrà presentare e dovrà chiedere le classiche 
informazioni necessarie per predisporre una cartella clinica: cognome, 
nome, età e sesso del paziente e tipo di disturbi accusati. Quindi dovrà 
sottoporre al paziente alcune domande, scelte in funzione dei disturbi che 
egli accusa; sulla base dell’anamnesi che ne consegue potrà finalmente 
costruire il responso, corredandolo della cura che ritiene più opportu¬ 
na, nonché evidenziare le controindicazioni esistenti per la cura propo¬ 
sta. Terminerà, da buon luminare della medicina, presentando la parcella, 
che sarà calcolata sulla base del tipo di disturbi presentati dal paziente. 
Il programma dovrà elaborare tre tipi di frasi: le domande iniziali, le frasi 
che serviranno per costruire il responso e le frasi introduttive che pre¬ 
cederanno ogni sezione del responso. Poiché le frasi di ciascun tipo sono 
omogenee tra loro, utilizzeremo per contenerle tre matrici, in particola¬ 
re DOM$ per le domande, MAL$ per le frasi introduttive e DIA$ per le 
frasi che costituiranno le varie parti del responso. 

Le domande iniziali saranno tali da individuare solo sei tipi di disturbi 
possibili: sessuali (maschili e femminili), respiratori, gastrici, nervosi e 
cardiaci. È chiaro che le frasi da utilizzare saranno diverse per ciascun 
tipo di disturbo, per cui dovremo dividere sia le domande che le frasi 
per la diagnosi in sei gruppi, uno per ogni tipo di disturbo. 

Iniziamo dunque con l’esame degli array preposti al dialogo interattivo 
fra medico e paziente. 

Poiché le domande risultano logicamente divise in gruppi conviene uti¬ 
lizzare come struttura dati una matrice anziché un vettore. Se definia¬ 
mo dieci domande per ogni disturbo possiamo usare la matrice DOM$ 
(6, 10), in cui il primo indice, che assumerà i valori tra 1 e 6, corrisponde¬ 
rà al tipo di disturbo, mentre il secondo indice, che varierà da 1 a 10, 
individuerà ogni singola domanda (vedi grafico in basso). 

Dopo l’immissione del tipo di disturbo il programma presenterà al pa¬ 
ziente tre domande scelte fra le dieci relative al disturbo denunciato. 

DOMANDE POSSIBILI 

Ogni riga contiene le domande relative ad un determinato tipo di disturbo 


OOM$ = 


123456789 10 



Disturbi sessuali maschili 
Disturbi sessuali femminili 
Disturbi respiratori 
Disturbi gastrici 
Disturbi nervosi 
Disturbi cardiaci 
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DOMANDE POSTE 

1 2 3 


PD = 


RISPOSTE FORNITE 

1 2 3 


Z = 


Gli indici di colonna delle domande poste 
al paziente sono memorizzati, nell'ordine, 
in PD. I codici delle risposte fornite dal pa¬ 
ziente (1 = SI. 2 = NO, 3 = POCO/TALVOL¬ 
TA) sono memorizzati in Z nell'ordine se- 
condocuisono posteledomande. Ad esem¬ 
pio, Z(1) conterrà la risposta fornita dal pa¬ 
ziente alla domanda il cui indice è in PD(1). 


Diagnosi 


Prescrizione 


Controindicazioni 


A questo punto si rende necessario gestire le risposte fornite dal pazien¬ 
te utilizzando due semplici vettori (visibili a fianco) la cui utilità risulte¬ 
rà chiara allorché si parlerà della logica di selezione del responso. 

Il responso che il CBM-64 costruirà alla fine dell’anamnesi sarà compo¬ 
sto di tre parti: la definizione della malattia riscontrata, la cura da se¬ 
guire e le controindicazioni alla cura precedentemente consigliata. Fa¬ 
remo precedere ciascuna delle tre parti da una frase introduttiva. 

Per memorizzare le frasi che utilizzeremo per costruire il responso use¬ 
remo dunque una matrice più complessa, DIA$(6, 10, 3), in cui primo e 
secondo indice sono analoghi a quelli della matrice DOM$, mentre il ter¬ 
zo, con valori da 1 a 3, individuerà il tipo delle frasi: per la diagnosi, per 
la cura e per le controindicazioni. Infine memorizzeremo le frasi di in¬ 
troduzione alle tre parti che costituiscono il responso nella matrice 
MAL$(3, 4), in cui il primo indice, con valori da 1 a 3, individuerà il bloc¬ 
co cui si riferiscono le frasi introduttive (diagnosi, cura, controindica¬ 
zioni), mentre il secondo indice distinguerà ogni singola frase. 

FRASI INTRODUTTIVE 


MAL$, 



Frasi introduttive alla diagnosi della malattia 
Frasi introduttive alla prescrizione della cura 
Frasi introduttive alla controindicazione 


RESPONSO 


DIA$ = 



3 - PAGINA CONTROINDICAZIONI 


Ogni pagina contiene le frasi relative 
ad una diversa sezione del responso 

Malattie sessuali maschili 


- Malattie sessuali femminili 
Malattie respiratorie 
Malattie gastriche 
Malattie nervose 
Disturbi cardiaci 


La frase che si trova, ad esempio, 
in posizione 4.S 
descrive una malattia che 
dovrebbe corrispondere al sintomo 
contenuto nella corrispondente 
posizione di DOMS Ovviamente 
la corrispondenza è solo ironica. 


La visualizzazione del responso sarà organizzata così: 

1 / Il programma sceglie casualmente una frase introduttiva dalla prima 

riga di MAL$ 

2 / Il programma sceglie una malattia dalla prima pagina di DIA$ in dipen¬ 

denza della risposta fornita dal paziente 

3 / Stampa delle frasi selezionate 

1 / Scelta casuale di una frase introduttiva dalla seconda riga di MAL$ 

2 / Scelta di una cura dalla seconda pagina di DIA$, in dipendenza dalla 

risposta fornita dal paziente 

3 / Stampa delle frasi selezionate 

1 / Scelta casuale di una frase introduttiva dalla terza riga di MAL$ 

2 / Scelta di una controindicazione dalla terza pagina di DIA$, in dipenden¬ 

za dalla risposta fornita dal paziente 

3 / Stampa delle frasi selezionate. 
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Diagrammi 
di flusso 


Il programma carica 
inizialmente le matrici 
DOM$, MAL$ e DIA$, 
quindi si presenta sul video 
e chiede al paziente- 
giocatore i suoi dati 
anagrafici e i disturbi che 
accusa. Nel ciclo 
successivo, in'funzione del 
tipo dei disturbi denunciati, 
estrae da DOM$ tre 
domande a caso, le 
compone per la stampa, le 
visualizza e acquisisce le 
risposte. Successivamente 
rimescola (in un vettore di 
servizio) gli indici delle 
domande poste, in modo da 
fornire diagnosi diverse 
anche se il paziente 
immette risposte uguali a 
domande uguali. Infine 
costruisce le tre sezioni 
della diagnosi finale; in 
particolare, per ogni 
sezione il programma estrae 
casualmente una frase 
introduttiva ed una o due 
frasi per la costruzione 
della sezione del responso. 
L’ultimo blocco riguarda il 
calcolo della parcella e la 
sua visualizzazione insieme 
ad un messaggio di saluto. 


Le domande da porre 
sono caricale in 
DOM${6.10): 6 gruppi di 
10 domande ciascuno 


Le (rasi cne compongono 
la diagnosi sono acquisite 
in DIA$(6 10.3) 6 gruppi 
di 10 (rasi per ciascuna 
delle 3 sezioni della diagnosi 
(malattia prescrizione, 
controindicazioni) 


Inizia il loop nel quale 
il programma pone al 
paziente tre domande 
relative al tipo di disturbo 
cne egli ha denunciato 


START 


* 


Dimensionamento 

array 


* 

Lettura 
domande 
da porre 


/ Lettura frasi 
introduttive 


Lettura frasi 
della diagnosi 


* 

Z Stampa 

presentazione 

> 1 ^ 

/ Richiesta e 
immissione dati 
del paziente 

* 



o 











Il programma dimensiona 
le matrici 

DOM$(6, 1 0) = Domande 
da porre al paziente 
MAL$(3.4) = Frasi introduttive 
diagnosi 

DIA$(6.10.3) = Frasi della 
diagnosi 


Le (rasi introduttive sono 
acquisite in MAL$(3.4) 3 
gruppi di 4 frasi ciascuno, Il 
primo gruppo contiene le frasi 
introduttive alla diagnosi 
il secondo quelle che 
precederanno la prescrizione, 
il terzo quelle che 
precederanno 
le controindicazioni 


Il programma chiede nome, 
cognome, età sesso e 
categoria del paziente 


I disturbi riconosciuti sono di 6 
tipi: sessuali (maschili e 
femminili) respiratori, gastrici, 
nervosi cardiaci 
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È opportuno chiarire la 
logica di selezione delle 
frasi. 

Il programma ha 
memorizzato in PD gli 
indici di colonna delle 
domande poste al paziente 
(l'indice di riga, che 
individua il gruppo, è dato 
dal tipo di disturbo che il 
paziente ha denunciato, ed 
eventualmente dal sesso 
dichiarato). Le risposte 
fornite dal paziente sono 
invece memorizzate, come 
codici numerici, in Z. 

Per ciascuna sezione 
del responso il 
programma sceglierà 
casualmente una frase 
introduttiva dalla 
corrispondente riga di 
MAL$ e la caricherà nel 
buffer di stampa BF$. 
Quindi esaminerà una delle 
tre risposte fornite dal 
paziente (scelta a caso): 

— se la risposta è SI 
visualizzerà la frase di 
DIA$ che occupa la 
posizione corrispondente a 
quella che occupa la 
domanda in DOM$; 

— se la risposta è NO 
sceglierà a caso una frase 
all'interno di DIA$ nel 
gruppo che corrisponde al 
disturbo accusato; 

— se la risposta è POCO/ 
TALVOLTA visualizzerà 
due frasi: la prima è scelta 
a caso nel gruppo di DIA$ 
che corrisponde al disturbo 
accusato; la seconda è la 
frase di DIA$ che occupa la 
posizione corrispondente a 
quella occupata dalla 
domanda in DOM$. 


o 


Scelta casuale 
di una domanda 


Composizione 
della stampa 


Scelta e 
visualizzazione 
frase introduttiva 
e diagnosi 


Scelta e 
visualizzazione 
frase introduttiva 
e prescrizione 


Scelta e 
visualizzazione 
frase introduttiva 
e controindicazioni 


Calcolo e 
visualizzazione 
parcella 
e saluto 


Visualizza 
domanda e 
menù risposte 



La scelta è effettuata 
nell'ambito del gruppo 
associato al tipo di disturbo 
denunciato dal paziente 


La domanda deve essere 
visualizzata rispettando i 
vincoli imposti 

dall'ampiezza del video senza 
spezzare le parole 


Il programma carica i codici 
delle risposte (1. 2 o 3) nel 
vettore 2. e li utilizzerà per 
formulare la diagnosi 


Per K = 3 sono state già poste 
al paziente 3 domande Si 
deve procedere alla 
visualizzazione del responso 
del medico 

Genera un vettore di accesso 
casuale al vettore Z delle 
risposte fornite dal paziente. 
Questo vettore (SEQ) conterrà 
i numeri 1. 2, 3 posizionati 
casualmente, e servirà per 
selezionare le frasi che 
comporranno il responso 


c 


END 
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Per la composizione e per 
la stampa delle righe 
conviene utilizzare una 
subroutine apposita, che 
può avere la struttura 
visibile qui a lato. 

Nel primo blocco sono 
caricati in BF$ (buffer di 
stampa) la frase appena 
estratta ed il residuo 
eventualmente rimasto nel 
buffer; quindi, dopo aver 
atteso uno spazio da 
tastiera per continuare, si 
controlla che il contenuto 
del buffer entri in una sola 
riga del video. 

In caso affermativo BF$ è 
stampato, altrimenti si 
entra in un loop che 
determina il punto in cui si 
può suddividere il buffer 
cercando il primo spazio 
che abbia a sinistra meno 
di 40 caratteri. Chiamata 
con SC la posizione in cui 
esiste lo spazio, si può 
stampare il buffer fino al 
carattere SC-1 e quindi 
si salva in testa a BF$ tutto 
ciò che è rimasto, cioè i 
caratteri da SC in poi. 

Si ripete poi la verifica su 
BF$ e lo si stampa fino a 
lasciarvi un numero di 
caratteri minore di 40. 


Composizione riga 
di stampa e stampa 



O 



Inserisce uno spazio 
alla fine 


< 




LEN(BF$)<40? 


| Se BFS comprende meno 
di 40 caratteri il buffer 

RETURN 


NO 


Loop di ricerca 
a ritroso del primo 
spazio in BFS 


SC = 40 


r 




occupa una sola riga del 
video, altrimenti occorre 
suddividerlo 
Controlla se il carattere 
SC-esimo del buffer è uno 
spazio 


SC=SC-1 


*°À 

./ MID$(BF$,SC,1) = 

V_Lv 

‘y SI 

Z Stampa 

LEFTS(BFS.SC-I) / 


D 

BFS = RIGHTS 
(BFS, 

LEN(BFS)-SC) 

i 



E stato trovato 
uno spazio in posizione SC. 
Stampa la parte di BF$ 
che può entrare in una 
riga del video 

Accoda i caratteri eccedenti 
nel buffer. Saranno stampati 
sulla riga successiva del video 
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Il programma 


Il programma inizia con le 
istruzioni 470+ 490 nelle 
quali vengono 
dimensionate le matrici 
usate per le frasi. Le frasi 
sono memorizzate nelle 
matrici alle linee 530+ 700 
con istruzioni READ, che 
leggono i DATA che si 
trovano a partire dalla 
linea 2630. 

Nelle 731+800 il 
programma si presenta 
(routine 62000) e quindi 
(linee 840+1160) chiede al 
giocatore i dati anagrafici e 
i disturbi accusali; tutti gli 
input sono controllati, in 
modo da non permettere 
l'introduzione di stringhe 
nulle o fuori dei valori 
consentiti (linee 850, 870, 
890, 910, 1040, 1160). 


100 REM **«***»*»*«*»**M**M»** 

110 REM * UN MEDICO POCO SERIO * 

120 REM ••****••••*•*•*»*«••**•» 

140 REM VfiRIRBIl.1 UTILIZZATE 

160 REM D0M*<) : MATRICE DELLE DOMANDE 

170 REM MALfO : MATRICE FRASI INTRODUZIONE DIAGNOSI 

180 REM DIABO ^ MATRICE FRASI DIAGNOSTICHE 

190 REM I,J,K : INDICI DI LOOP 

200 REM NS : NOME 

210 REM C* : COGNOME 

220 REM ET : ETÀ' 

230 REM 8* : SESSO 

240 REM S ■' CODICE SESSO 

250 REM PR : CODICE PROFESSIONE 

260 REM DS : CODICE DI8TURB0 

270 REM XO : RRRHV DI NUMERI CASUALI 

280 REM XI ! NUMERO CASUALE 

290 REM PDO ; ARRAY CONTENENTE LE POSIZIONI DELLE DOMANDE SCELTE 

310 REM ZO • ARRAY CONTENENTE I CODICI DELLE RISPOSTE 

320 REM RP : NUMERO CASUALE PRECEDENTE 

330 REM BF* : BUFFER DI STAMPA 

340 REM 8C : VARIABILE DI SCANSIONE IN BF* 

350 REM PA : PARCELLA 

360 REM RIT : CONTATORE LOOP DI RITARDO 

370 REM SEQO : VETTORE SEQUENZA DOMANDE 

380 REM AU8 : VARIABILE DI APPOGGIO 

381 REM PO* : NOME PROGRAMMA 

400 REM CARATTERI DI CONTROLLO 
420 REM CHRSC18) : RVS/ON “r 
430 REM CHR6C147) : CLR » ''3" 

450 REM DIMEN8IQNRMENTO MATRICI 
470 DIM DOM*<6,10),X<3),Z<3) 

480 DIM DIR*<6, 10,3),PDO) 

490 DIM MAL*<3,4),SEQ<3) 

510 REM LETTURA DELLE DOMANDE 
530 POR I-l TO 6 
540 FOR J-l TO 10 
550 READ DOM*<I/J) 

560 NEXT J 
570 NEXT I 

590 REM LETTURA FRASI INTRODUTTIVE DIAGNOSI 
610 FOR 1-1 TO 3 
620 FOR J-l TO 4 
630 READ MAL*CI,J) 

640 NEXT J 
650 NEXT I 

654 REM LETTURA FRA8I RESPONSO 

660 FOR K-l TO 3 

670 FOR 1-1 TO 6 

680 FOR J-l TO 10 

690 READ DIA*<I,J,K> 

708 NEXT J,I,K 

728 REM PRESENTAZIONE 

731 PG*«"UN MEDICO POCO SERIO' 1 • GOSUB 62000 
740 PRINT CHR*<147)1 
750 PRINT CHR*(18) 1 

760 PRINT TAB<8)i" UN MEDICO POCO SERIO " 

770 PRINT 

780 PRINT '' BUONGIORNO, SI SIEDA” 

790 PRINT " E RIEMPIA LA SCHEDA” 

800 PRINT 


820 REM ACQUISIZIONE DATI CLINICI E CONTROLLI 
840 INPUT" NOME ";N* 

850 IF N*-"" THEN PRINT CHR*<145)i'QOT0 840 
860 INPUT" COGNOME ”JC* 

870 IF C*-"" THEN PRINT CHR*<145)J: DOTO 860 
880 INPUT" ETÀ" ";ET 

890 IF IT<-0 THEN PRINT CHR*<145);:QOTO 880 
900 INPUT " SESS0CM7F)";S* 

910 IF S* 0"M" AND 8*<>"F“ THEN PRINT CHR«<145), GOTO 900 
920 PRINT CHR*<147) 

930 PRINT " IN QUALE DI" 

940 PRINT " QUESTE CATEOORIE" 

950 PRINT • SI RICONOSCE?" 

960 PRINT 

970 PRINT " 1) DISOCCUPATO" 

980 PRINT " 2) STUDENTE" 

990 PRINT " 3) LIBERO PROFESS." 

1000 PAINT" 4) DIPENDENTE" 

1010 PRINT” 5) CASALINGA70" 

1020 PRINT 

1038 INPUT" QUALE"iPR 

1048 IF PR <1 OR PR > 5 THEN PRINT CHR*<145); GOTO 103B 
1058 PRINT CHR*(147) 

1060 PRINT " DI CHE GENERE DI" 

1070 PRINT • DISTURBI 80FFRE?" 

1080 PRINT 

1090 PRINT « 1) SESSUALI" 

1100 PRINT " 2) RESPIRATORI" 

1110 PRINT " 3) GASTRICI" 








Nelle 1170, 1180 il 
programma trasforma il 
sesso in un indice 
numerico S, che vale 1 per 
il sesso maschile e 2 per 
quello femminile. In 1190, 
1200 inizializza DS (che 
individua il blocco di 
domande eJo frasi in funzione 
del tipo di disturbo) con un 
valore che tiene conto del 
sesso del paziente. Nel ciclo 
1250+1640 pone al giocatore 
tre domande scelte a caso 
nel blocco corrispondente 
ai disturbi accusati. In 
particolare, alla linea 1270 
carica in PD un numero 
casuale tra 1 e 10 che 
corrisponde ad una delle 
dieci possibili domande, 
controlla se la domanda è 
già stata fatta (linee 
1330+1350), la visualizza 
(linee 1390+1470), assieme 
al menù delle possibili 
risposte (linee 1520+1560), 
ed infine legge la risposta 
scelta (linea 1570), 
controllando che sia 
ammissibile (linea 1580), e 
la pone in Z. Nelle 
istruzioni 1690+2190 è 
costruito e visualizzato il 
responso. Le linee 
1690+1800 caricano nel 
vettore di comodo SEQ i 
numeri 1, 2, 3 e li 
rimescolano casualmente. 
Gli elementi di SEQ, 
estratti sequenzialmente 
uno alla volta, 
costituiranno i puntatori 
agli elementi dei vettori 
delle risposte (Z) e delle 
domande poste (PD). 

Alla linea 1870 inizia il 
loop di scansione del 
vettore SEQ, nel quale è 
inserita la fase di selezione 
delle frasi che compongono 
il responso. Il ciclo è 
controllato dall'indice K: 
per K = 1 è visualizzata la 
prima sezione del responso 
(diagnosi), per K=2 la 
seconda (prescrizione) e per 
K—3 la terza 


1120 

1130 

1140 

1150 

1160 

1170 

1100 

1190 

1200 

1220 

1230 

1250 

1260 

1270 

1290 

1300 

1310 

1330 

1340 

1350 

1370 

1390 

1410 

1430 

1450 

1470 

1520 

1530 

1540 

1550 

1560 

«70 

1580 

1590 

1610 

1630' 

1640 

1650 

1670 

1690 

1700 

1710 

1730 

1750 

1760 

1770 

1780 

1790 

1800 

1804 

1808 

1820 

1830 

1840 

1850 

1870 

1890 

1910 

1920 

1940 

1960 

1980 

1990 

2010 

2020 

2030 

2040 

2050 

2060 

2080 

2100 

2120 

2140 

2158 

2170 

2190 

2210 

2230 

2240 

2260 

2270 

2290 

2300 

2310 

2320 

2330 

2340 

2360 

2300 

2390 


4) NERVOSI" 

5) CANDIRCI" 


PRINT 
PRINT 
PRINT 

INPUT “ QUALE”;BS 

IF DS<1 OR DS> 5 THEN PRINT CHR*U43); GOTO 1150 
IF THEN LET 8-L00T0 1190 

LET 8 «2 

IF DS -1 THEN LET I=S-00T0 1258 
LET I-DS+1 

REM SCELTA DI TRE DOMANDE CASUALI 
REM RELATIVE AL TIPO DI DISTURBO 
FOR K«1 TO 3 
PRINT CHR*< 147) 

PDOO- INT <RND<0)*10>+1 

REM CONTROLLA CHE LA DOMANDA NON 

REM SIA STATA GIÀ' FORMULATA 

REM IN CASO DI RISPOSTA POSITIVA RIPETE LA 8CELTR 
FOR J-K-l TO 1 STEP -1 
IF PD<J>-PD<K> THEN DOTO 1270 
NEXT J 

REM PREPARA LA STAMPA DELLA DOMANDA 
LET BF*=DOM*<I,PD<IO> 

REM CHIAMA LA SUBROUTINE DI COMPOSIZIONE 
□OSUB 2510 

REM STAMPA L'ULTIMA RIOA DELLA DOMRNDA 
PRINT BF* 

PRINT 

PRINT " 1>SI" 

PRINT " 2>NQ" 

PRINT " 3)P0C0/TRLVOLTA 
PRINT 

INPUT " EBBENE"; ZOO 

IF ZOOC1 OR Z<K»3 THEN PRINT CHR*<145>; :GOTO 1570 
PRINT 

REM RITARDO 
GOSUB 2440 
NEXT K 

PRINT CHR*<147> 

REM INIZIALIZZAZIONE VETTORE SEQUENZA DOMANDE 
FOR J»1 TO 3 
LET SEQCJW 
NEXT J 

REM INVERSIONE CA8UALE SEQUENZA DOMANDE 
FOR J«1 TO 3 
LET Xl-INT(RND<0>*3)+1 
LET AU8-8EQ<Xl> 

LET SEQCXi>°SEQ(J) 

LET SEQ(J)-AUS 
NEXT J 

REM AZZERA IL CONTENUTO DEL BUFFER PRECEDENTE 
LET BF*-"" 

REM LOOP DI DIAGNOSI SU TRE PASSAGOI■ 

REM IL PRIMO AS8E0NA UNA FRASE INTRODUTTIVA E UNA MALATTIR 
REM IL SECONDO UNA FRASE INTRODUTTIVA E UNA PRE8CRIZIONE 
REM IL TERZO UNAFRA8E INTRODUTTIVA E UNA CONTROINDICAZIONE 
FOR K-l TO 3 

REM SCELTA DI UNA FRASE INTRODUTTIVA CASUALE 
LET X<IO»INT<RN1W0>*4>+1 
LET BF*»BF*+MAL*<K,X<IO>+" * 

REM RITARDO 
QOSUB 2440 

REM SCELTA DI UNA 0 PIU' FRASI DIAGNOSTICHE 
REM IN RELAZIONE ALLE RISP08TE DATE 

IF ZCSEQOO)*1 THEN LET BF*-BF*+DIA*<I,PD(SEQOO>,IO+". •:QOTO 2100 
IF Z<SEQOO>«2 THEN LET BF*»BF*+DIA*a,RND<0)*10+l,«>•►". " :QOT0 2100 
LET X1-INT<RND<0)*10)+1 
IF X1-PDC8EQ<K>) THEN GOTO 2030 
LET BF*-BF*+DIA*<I,Xl,IO+" E " 

LET BF*-BF*+DIR*<I,PD<SEQOO>,IO + 

REM RITARDO 
GOSUB 2440 

REM CHIAMA LA SUBROUTINE DI COMPOSIZIONE 
OOSUB 2510 
NEXT K 

REM STAMPA IL CONTENUTO RIMANENTE DEL BUFFER 
PRINT BF* 

REM CALCOLO DELLA PARCELLA 

LET PA - <6-DS+INTCRND<0)*5))*10000 

PRINT 

REM FRASI CONCLUSIVE CONDIZIONATE 
REM DALL'ESITO DELLA DIRGN08I 
IF X(l>-4 THEN PRINT "ADDIO,";: OOTO2320 
PRINT "ARRIVEDERCI A PRESTO,"; 

PRINT 

PRINT "SI PUÒ' ACCOMODARE" 

PRINT "DALLA MIA SEGRETARIA." 

PRINT 

REM RITARDO 
QOSUB 2440 

PRINT "MI DEVE L. M ;PA 
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(controindicazioni). Fissato 
il valore di K (cioè la 
sezione del responso e 
quindi la pagina di DIA$), 
le linee 1910, 1920 caricano 
nel buffer di stampa BF$ 
una frase introduttiva 
scelta a caso nella riga di 
MAL$ corrispondente a 
quella sezione. 

Subito dopo si estrae il K- 
esimo valore contenuto in 
SEQ (che sarà 1, 2 o 3) e 
con esso si entra nel 
vettore, delle risposte (Z). 

— Se la risposta a cui si 
accede è SI (linea 2010) il 
programma accoda a BF$ 
la frase (del K-esimo piano 
di DIA$) che corrisponde 
idealmente alla domanda 
posta dal computer. Questa 
frase ha indici I, 

PD (SEQ(K)), K. 

— Se la risposta è NO 
(linea 2020), cioè se 
Z(SEQ(K))=2, il programma 
sceglie una frase a caso (dal 
K-esimo piano di DIA$) 
nell'ambito della riga 
dedicata al disturbo 
dichiarato (I). 

— Se la risposta è 
POCO/TALVOLTA (linee 
2040+2060) il programma 
sceglie due frasi: la prima 
(linee 2030+2050) 
casualmente nell'l-esima 
riga (K-esima pagina) di 
DIA$, la seconda come se 
la risposta fosse stata SI. 
Dopo la composizione di 
una data sezione del 
responso (in generale la K- 
esima) il programma entra 
in un loop di attesa 
(subroutine 2440), 
dopodiché chiama la 
subroutine di stampa (linea 
2140) e passa al successivo 
valore di K (linea 2150). 
Uscito dal ciclo di generazione 
del responso nelle 

2230 + 2390 il programma 
calcola la parcella e 
visualizza un messaggio di 
saluto. Da notare (linee 
2290+2310) che di 


2395 FOR RIT=1 TO 60R0 : NEXT RII 

2400 PRINT''31°:P0KE 53280, 14:P0KE 53281,6 : END 

2420 REM SUBROUTINE DI RITARDO CASUALE 

2440 LET Xl«RND <0> * 4 

2450 FOR RIT*1 TO XI*500 

2460 NEXT RIT 

2470 RETURN 

2490 REM SUBROUTINE DI COMPOSIZIONE STAMPA 
2510 LET BF*-8F*+" " 

2520 IF LEN <BF*> < 40 THEN RETURN 
2530 LET SC » 40 

2540 IF MID* <BF#.SC,1>= ” ” THEN GOTO 2570 

2550 LET SC « SC-1 

2560 GOTO 2540 

2570 PRINT LEFT*<BF*,SC-1> 

2580 LET BFS«RIGHT*<BF*,LEN<BF*>-SC> 

2590 GOTO 2520 

2610 REM DOMANDE DISTURBI SESSUALI MASCHILI 
2630 DATA AVVERTE UN FORTE PRURITO AI GENITALI? 

2640 DATA LE DONNE LE FANNO LETTERRLMENTE PERDERE LA TESTA? 
2650 DATA E' UN TIPO POCO SENSUALE? 

2660 DATA SECONDO LEI ALAIN DELON E' UN BELL'UOMO? 

2670 DATA LE PIACE GUARDARSI ALLO SPECCHIO? 

2680 DATA HA AVUTO GLI ORECCHIONI DOPO LA PUBERTÀ'? 

2690 DATA MANGIA LE PAPAJE? 

2700 DATA AMA SUA MADRE? 

2710 DATA ACCUSA DOLORI ALLA REGIONE SUBINGUINALE? 

2720 DATA FA USO DI DROGHE? 

2740 REM DOMRNDE DISTURBI SESSUALI FEMMINILI 
2760 DATA RAGGIUNGE L'ORGRSMO? 

2770 DATA GLI UOMINI LE FANNO PERDERE LETTERALMENTE LA TESTA? 
2780 DATA AVVERTE FORTI PRURITI ALLA ZONA SUBINGUINALE? 

2798 DATA HA LA VOCE MOLTO BRSSA? 

2800 DATA RISCONTRA LA PRESENZA DI PIAGHE SULLA PELLE? 

2810 DATA HA ANIMALI IN CASA? 

2820 DATA HA PAURA DEI LADRI? 

2830 DRTA TEME LE MALATTIE? 

2840 DATA AVVERTE DOLORI ALLA REGIONE OVARICA? 

2850 DATA HA UN CICLO REGOLARE? 

2870 REM DOMANDE MALATTIE RESPIRATORIE 
2890 DRTA HA DIFFICOLTA' NELLA DEGLUTIZIONE? 

2900 DATA STARNUTISCE SPESSO? 

2910 DATA HA DEI BUBBONI SOTTO LE ASCELLE? 

2920 DATA HA UN DOLORE ALLA FRONTE? 

2930 DRTA RE8PIRA R VOLTE CON DIFFICOLTA' 

2940 DATA TOSSISCE SENZA CONTROLLO? 

2950 DATA HA IL PALATO E LA LINGUA ARROSSATI? 

2960 DATA HA UNA FORTE FEBBRE CON BRIVIDI? 

2970 DATA HR FORTI DOLORI AL TORACE? 

2980 DATA HA I MUSCOLI STERNOCLEIDOMASTOIDEI SPORGENTI? 

3000 REM DOMANDE DISTURBI GASTRICI 
3020 DATA VOMITA SPESSO? 

3030 DATA HR UN FORTE DOLORE ALL'INGUINE? 

3040 DATA AVVERTE BRUCIORI ALLO STOMACO? 

3050 DATA RWERTE DOLORI AL FEGRTO? 

3060 DATA FA IL BAGNO NEL TEVERE? 

3070 DATA SENTE UN FORMICOLIO QUANDO SI SIEDE? 

3080 DATA LE PIACE IL VERMOUTH? 

3090 DATA MANGIA MOLTI DOLCI? 

3100 DATA HR BEVUTO LATTE NON STERILIZZATO? 

3110 DRTA HR FATTO VIAGGI IN NORD AFRICA? 

3130 REM DOMANDE DISTURBI NERVOSI 
3150 DATA HA PAURA DEL PROSSIMO? 

3160 DRTA LE TREMANO LE MANI? 

3170 DATA CONDUCE UNA VITA STRESSANTE? 

3180 DATA RACCONTA SPESSO FROTTOLE? 

3190 DATR SI IRRITA SPE8S0? 

3200 DATA AVVERTE SPASMI MUSCOLARI CASUALI? 

3210 DATA RUBA MAI AL SUPERMARKET? 

3220 DATR ODIA GLI ASCENSORI? 

3230 DATA VEDE I FILMS DI MRRCO FERRERI? 

3240 DATA LE PIACE IL COLORE VERDE? 

3260 REM DOMANDE DISTURBI CARDIACI 

3280 DATA HA DIFFICOLTA' NELLA DEAMBULAZIONE? 

3290 DATR IL CUORE LE BATTE COME UN MARTELLO PNEUMATICO? 

3300 DATR HR UN FORTE DOLORE RETROSTERNALE? 

3310 DRTA SI SENTE DEBOLE? 

3320 DATR HA FREQUENTI GIRAMENTI DI TESTA? 

3330 DATA LAVORA MOLTO? 

3340 DATR LE CAPITA DI DIRE COSE SEN8R SENSO? 

3350 DATR HA GIR' FATTO TESTAMENTO? 

3360 DATR PRENDE LE MEDICINE CON L'INVOLUCRO? 

3370 DRTA HA DIFFICOLTA' A FARE LUNGHE CORSE? 

3390 REM FRA8I INTRODUTTIVE DIAGNOSI MALATTIA 
3410 DATA LA SUA MALATTIA E' 

3420 DATA CERTAMENTE LEI SOFFRE DI 
3430 DATR CREDO PROPRIO CHE SOFFRA DI 
3440 DRTA LEI STA PER MORIRE DI 
3460 REM FRASI INTRODUTTIVE PRESCRIZIONE 
3480 DRTA LE CONSIGLIO DI 
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solito il messaggio è 
ARRIVEDERCI, mentre se 
è stata diagnosticata la 
morte imminente il 
messaggio è... ADDIO. 
Notiamo infine che la 
subroutine 2440, chiamata 
in più punti del 
programma, genera un 
ritardo non costante. 

Nelle istruzioni DATA da 
2630 a 5920 sono caricate 
tutte le domande e le frasi 
utilizzate. 

In coda al programma si 
trovano le due solite 
routines per Tinializzazione 
delle costanti (linea 61000) e 
per la stampa del titolo 
(linea 62000). 


3490 DRTR Hfl BISOGNO DI 

3500 DRTR DOVREBBE 

3310 DRTR E' INDISPENSABILE 

3330 REM FRASI INTRODUTTIVE CONTROINDICAZIONI 

3350 DRTR D'ORfl IN POI NON DEVE 

3360 DRTR LE 8C0NSI0LI0 DI 

3370 DRTR NON DOVREBBE PIU' 

3380 DRTR SI RSTENOR DRL 

3600 REM MALATTIE SESSURLI MASCHILI 

3620 DRTR PRRRSSITOSI DR INSETTI 

3630 DRTR SRTIRIRSI 

3640 DRTR IMPOTENZA 

3630 DRTR TENDENZE OMOSESSUALI PROVOCRTE DR UN TRAUMA INFANTILE 

3660 DRTR NRRCISI8M0 

3670 DRTR STERILITA' MOLTO PROBABILE 

3680 DRTR URETRITE 

3690 DRTR MISOCINIR 

3700 DRTR ORCHITE 

3710 DRTR TOSSICODIPENDENZR IN STATO AVANZATO 
3730 REM MALATTIE SESSUALI FEMMINILI 
3730 DRTR FRIGIDITÀ' 

3760 DRTR NINFOMANIA 

3770 DRTR PRRRSSITOSI 

3780 DRTR GINANDRIR 

3790 DRTR SIFILIDE 

3800 DRTR OVARITE 

3810 DRTR TURBE PSICHICHE 

3820 DRTR IPOCONDRIR 

3830 DRTR LEUCORREA 

3840 DRTR ORZAIOLO 

3860 REM MALATTIE RESPIRATORIE 

3880 DRTR FARINGITE 

3890 DRTR RINITE 

3900 DRTR VAIOLO 

3910 DRTR SINUSITE 

3920 DRTR RSMR 

3930 DRTR PERTOSSE 

3940 DRTR STOMATITE 

3950 DRTR POLMONITE 

3960 DRTR PLEURITE 

3970 DRTR ENFISEMA POLMONARE 

3990 REM MALATTIE GASTRICHE 

4010 DRTR GRSTRITE 

4020 DRTR APPENDICITE 

4030 DRTR CALCOLI ALLA CISTIFELLEA 

4040 DRTR CALCOLI RL FEGATO 

4050 DRTR LEPTOSPIROSI 

4060 DRTR VERMICOLITE 

4070 DRTR CIRROSI EPATICA 

4080 DRTR DIRBETE GRASSO 

4090 DRTR SCORBUTO 

4100 DRTR EPATITE VIRALE 

4120 REM MALATTIE NERVOSE 

4140 DRTR SCHIZOFRENIR 

4150 DRTR MORBO DI PARKINSON 

4160 DRTR ESAURIMENTO NERVOSO 

4170 DRTR MITOMRNIR PARANOIDE 

4180 DRTR ISTERISMO 

4190 DHTR EPILESSIR 

4200 DRTR CLEPTOMRNIfl 

4210 DRTR CLRUSTROFOBIR 

4220 DRTR DEPRESSIONE CRONICA 

4230 DRTR PRZZIR FURIOSA 

4250 REM MALATTIE CARDIACHE 

4270 DRTR VENE VARICOSE 

4280 DRTR TACHICARDIA 

4290 DRTR PERICARDITE 

4300 DRTR ANEMIA PERNICIOSA 

4310 DRTR PRESSIONE BRSSR 

4320 DRTR IPERTENSIONE 

4330 DRTR ARTERIOSCLEROSI 

4340 DRTR INFARTO 

4350 DRTR TIFLITE 

4360 DRTR SOFFIO RL CUORE 

4380 REM RIMEDI MALATTIE SESSURLI MASCHILI 

4400 DRTR USARE ANTIPARASSITARI 

4410 DRTR BERE DECOTTI DI VRLERIRNR 

4420 DRTR FARE USO DI AFRODISIACI 

4430 DRTR FREQUENTARE UNO PSICORNALISTA 

4440 DRTR FARSI MOLTI AMICI 

4450 DRTR SPERARE IN UN MIRACOLO (ANDARE R LOURDES) 

4460 DRTR NON RIMANERE MRI SOLO 

4470 DRTR RISALIRE ALLE CAUSE DEL TRAUMA 

4480 DRTR ASTENERSI DRI RAPPORTI (PROVARE CON LE MOLTIPLICAZIONI) 

4490 DRTR EVITARE GLI STUPEFRCENTI 

4510 REM RIMEDI MALATTIE SESSURLI FEMMINILI 

4530 DHTR ASSUMERE RFRODISIRCI 

4340 DRTR FARE USO DI CRLMRNTI 

4550 DRTR FRRE LAVANDE RNTIPRRRSSITRRIE 

4360 DRTR SEGUIRE UNfi CURA R BRSE DI ORMONI FEMMINILI 
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4370 DATR EVITARE I RAPPORTI (PROVARE CON LE MOLTIPLICAZIONI) 
4380 DATA MANGIARE BANANE FINO ALLA NAUSEA (DELLA TENIA) 

4390 DATA ANDARE DA UNO PSICANALISTA 
4600 DATA DARSI UNA CALMATA 
4610 DATA MANGIARE DODICI UOVA SODE A SERA 
4620 DATA FARE IMPACCHI DI ACQUA E TE' 

4640 REM RIMEDI MALATTIE RESPIRATORIE 

4660 DATA FARE GARGARISMI TRE VOLTE AL GIORNO 

4670 DATA INALARE ACIDO CITRICO CONCENTRATO 

4680 DATA DISINFETTARE LA CASA 

4690 DATA PRATICARE L'AGOPUNTURA 

4700 DATA PRATICARE LA RESPIRAZIONE BOCCA A BOCCA 

4710 DATA USARE SCIROPPO ESPETTORANTE 

4720 DATR PRENDERE QUATTRO CRPSULE DI ANTIBIOTICO AL DI' 

4730 DATA OSSERVARE RIPOSO ASSOLUTO PER UN MESE 

4740 DRTA FARE LA PUNTURA LOMBARE 

4750 DATA OSSERVARE UNA DIETA POVERA DI ORASSI 

4770 REM RIMEDI MALATTIE GASTRICHE 

4790 DATA MANGIARE BISTECCHE AI FERRI 

4800 DATA OPERARSI AL PIU' PRESTO 

4810 DRTA CONDURRE UNA VITA PIU' SERENA 

4820 DATA LAVORARE MENO 

4830 DATA USARE ANTISETTICI 

4840 DATA MASSAGGIARE LA ZONA INTERESSATA 

4850 DATA DISINTOSSICARSI 

4860 DATA DIMAGIRE DI 10 KG 

4870 DATA FARE UNA CURA DI VITAMINA C 

4880 DATA OSSERVARE UNA DIETA STRETTISSIMA 

4900 REM RIMEDI MALATTIE NERVOSE 

4920 DATA STUDIARE FILOSOFIA ORIENTALE 

4930 DATA SOTTOPORSI AD INTERVENTO CHIRURGICO 

4940 DRTA FARE UNA LUNGR VACANZA 

4950 DATA RACCONTARE MENO FROTTOLE 

4960 DATA BERE DECOTTI DI VALERIANA E INFUSI DI CAMOMILLA 

4970 DATA CURARSI CON BARBITURICI 

4980 DATA CERCARE DI ALLACCIARE MOLTE AMICIZIE 

4990 DATA ANDARE DA UNO PSICHIATRA 

5000 DATA ANDARE A VEDERE UN FILM COMICO 

5010 DATA FARSI INTERNARE 

5030 REM RIMEDI MALATTIE CARDIACHE 

5050 DATA MANGIARE PAPRJE 

5060 DRTA NON ECCITARSI PER UN NONNULLA 

5070 DATA INIETTARSI PROGENIL-PAPAVERINA 

5080 DATA FARE UNA BELLA MANGIATA 

5090 DATA SEGUIRE UN REGIME ALIMENTARE ADEGUATO 

5100 DATA USARE FARMACI DIURETICI 

5110 DATR PRENDERE DECOTTI DI ORTICA 

5120 DATA ANDARE IN VACANZA IN SCANDINAVIA 

5130 DATA SOTTOPORSI AD OPERAZIONE CHIRURGICA 

5140 DATR SOSTITUIRE LA VALVOLA MITRALICA 

5160 REM CONTROINDICAZIONI MALATTIE SESSUALI MASCHILI 

5180 DATA TRASCURARE L'IGIENE INTIMA 

5190 DATA AVERE RAPPORTI FREQUENTI 

5200 DATA SOPPORTARE GROSSI SFORZI 

5210 DATR PENSARCI TROPPO 

5220 DATA GUARDARSI ALLO SPECCHIO 

5230 DATA DESIDERARE FIGLI 

3240 DATR LAVORARE TROPPO DI FANTASIA 

5250 DRTA PENSARE A SUR MADRE 

5260 DATA MANGIARE RVOCADOS 

5270 DATA ANDARE IN SUDAMERICA 

5290 REM CONTROINDICAZIONI MALATTIE SESSUALI FEMMINILI 

5310 DATR SCOPRIRSI TROPPO 

5320 DATR FREQUENTARE LE CASERME 

5330 DATA TRASCURARE L'IGIENE INTIMA 

5340 DATA USARE SCHIUMA DA BARBA 

5330 DATA BERE LIMONATE 

3360 DATA MANGIARE CIBI CRUDI 

3370 DATA LEGGERE I LIBRI DI MORAVIA 

5380 DATA FREQUENTARE I SELF-SERVICE 

5390 DATA SOTTOVALUTARE LE PRESE DI CORRENTE 

5400 DRTA PORTARE SENZA RAGIONE LE DITA AGLI OCCHI 

5420 REM CONTROINDICAZIONI MALATTIE RESPIRATORIE 

5440 DATA ANDARE AL MARE QUANDO FA FREDDO 

5430 DATA USARE FAZZOLETTI POLVEROSI 

5460 DATA FARE IL BAGNO NEL TEVERE 

5470 DRTA PENSARE INTENSAMENTE 

5480 DATA PROVARE FORTI EMOZIONI 

5490 DATR ANDARE IN MOTO QUANDO PIOVE 

5500 DATA METTERE IN BOCCA TUTTO CIO' CHE CAPITA 

5510 DATA PRENDERE FREDDO 

5520 DATA ANDARE A SCIARE 

5530 DATA FUMARE 

5550 REM CONTROINDICAZIONI MALATTIE GASTRICHE 

5570 DATA MANGIARE PATATE FRITTE 

5580 DATA MANGIARE PASTA 

5590 DATA AVERE FORTI DIVERBI 

5600 DATA FARE PRANZI LUCULLIANI 

5610 DATR GIOCARE CON I RODITORI 

5620 DATA ANDARE A CAVALLO 
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5630 DATA BERE ALCOOL 

5640 DATA MANGIARE LA SACHER-TORTE 

5650 DATA SEGUIRE DIETE POVERE DI FIBRE 

5660 DATA ANDARE IN MAROCCO 

5680 REM CONTROINDICAZIONI MALATTIE NERVOSE 

5700 DATA CIMENTARSI IN ATTIVITÀ' INTELLETTUALI TROPPO IMPEGNATIVE 

5710 DATA BERE WHISKY 

5720 DATR LAVORARE TROPPO 

5730 DATA PARLARE A SPROPOSITO 

5740 DATA GUIDARE L'AUTO 

5750 DATA PROVARE VIOLENTE EMOZIONI 

5760 DATR RUBARE OGGETTI...E LASCI STARE IL FERMACARTE 

5770 DATA DORMIRE SUL BALCONE 

5780 DATA FREQUENTARE PERSONE NOIOSE 

5790 DATA ANDARE ALLO STADIO 

5810 REM CONTROINDICAZIONI MALATTIE CARDIACHE 

5830 DATA CAMMINARE MOLTO 

5840 DATA ASSUMERE DROGHE ECCITANTI 

5350 DRTR SALTARE I PASTI 

5860 DRTR ALZARSI PRESTO LA MATTINA 

5870 DATR BERE CAFFÈ' 

5880 DATR MANGIARE CIBI GRASSI 
5890 DATR AVERE FORTI EMOZIONI 
5988 DATA MANGIARE UOVA SODE CON IL GUSCIO 

5910 DATA AFFATICARSI ECCESSIVAMENTE (EVITARE GLI ABUSI SESSUALI 
5928 DATA FARE LUNGHE CORSE 

60960 REM SUBROUTINE : INIZIALIZZAZIONE COSTANTI 

60980 REM CIRCUITO VIDEO 

€'.000 VI =53248 

61020 REM CIRCUITO SUONO 

61040 SI=54272 

61060 REM MEMORIA VIDEO 

61088 MV-1024 

61100 REM MEMORIA COLORE 

61120 MC=55296 

61180 REM INIZIALIZZAZIONE CHIP SUONO 

61208 FOR 1=0 TO 24 

61210 POKE SI+1,0 

61220 NEXT I 

61230 RETURN 

61930 REM SUBROUTINE STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PO* 

62008 GOSUB 61000 

62010 POKE VI+32,15 

62020 POKE VI+33,15 

62030 PRINT "ZaifiSlIl" , 

62048 PRINT TABCSl 1 1 “ r---- 

62050 FOR 1=1 TO 5 

62060 PRINT TAB<.6>,"I |” 

62078 NEXT I 

62080 PRINT TAB(6)i " - -- 

62090 PRINT TABvCli "MBWWtìBDieiTA SRETURNS PER PROSEGUIRE" 

62108 print ''«mula" 

62110 FOR 1=1 TO 5 
62120 PRINT TAB<r/, 

62138 FOR J=1 TO 26 
62140 PRINT "laa " 

62150 NEXT J 
62160 PRINT 
62170 NEXT I 

62190 REM ORA SCRIVO IL TITOLO 

62210 PRINT "«CfiKSUIKr , TAB<<40-LEN<PG*»/2) 1 " «", PGf 
62220 GÉT Z9S 

62230 IF Z9*OCHR*<13> THEN GOTO 62220 
62240 PRINT "Da", 

62250 RETURN 








Computo, computas... 

Il programma che ora considereremo consentirà all’utente di sottoporsi 
ad un esame sulla coniugazione dei verbi latini. Funzionerà presentando 
sul video un periodo in latino, nel quale i verbi sono tenuti nascosti e 
sono visualizzate in loro vece delle sequenze di trattini. 

Dei verbi sono forniti il presente indicativo, il modo, il tempo e la perso¬ 
na, e si chiede all’utente di inserire nella frase i verbi coniugati. Il pro¬ 
gramma comunicherà poi se ciascuna coniugazione è esatta, fornendo 
eventualmente su richiesta la forma corretta. Si avranno infine la visua¬ 
lizzazione del numero di errori effettuati e gli aspetti della coniugazione 
dei verbi che il programma suggerirà di ripassare. 


Analisi del 
problema 





Il programma deve effettuare una generazione casuale di frasi latine, in 
modo che esse risultino sempre diverse. Tale generazione dovrà però es¬ 
sere eseguita rispettando le regole sintattiche e grammaticali della lin¬ 
gua latina, inserendo cioè nella frase i complementi richiesti dalla sua 
costruzione e declinando i sostantivi nel modo corretto. 

La generazione avverrà decidendo dapprima in modo casuale il numero 
di proposizioni (tre al massimo) da comprendere nel periodo presentato 
all’utente e determinando poi (casualmente), per ogni proposizione, il mo¬ 
do ed il tempo del verbo compreso in essa. 

I modi e i tempi considerati saranno elencati nei vettori MODI$ e TM$, 
ma, dato che i tempi tra i quali si può scegliere dipendono dal modo cui 
si riferiscono (per esempio, nel congiuntivo non esiste il futuro), sarà ne¬ 
cessario introdurre una matrice TC% la quale, per ogni indice relativo 
ad un modo in MODI$, fornirà gli indici dei tempi in TM$ compatibili 
con il modo considerato. Sarà poi generato un soggetto a caso (a meno 
che il modo del verbo non sia l'infinito) scelto tra quelli contenuti nella 
matrice SO$, determinandone dapprima genere e persona, quindi il par¬ 
ticolare sostantivo da usare al caso nominativo. 

Dopo di ciò, il programma passerà alla generazione di un complemento: 
nel caso la frase sia al passivo ci dovrà essere un complemento d'agente, 
altrimenti sarà scelto uno degli altri tipi di complemento. La parola da 
inserire nella frase sarà scelta tra quelle elencate nel vettore CM$, dopo 
aver determinato il tipo del complemento compatibile con il modo usato 
per il verbo (la compatibilità tra modo del verbo e complementi è espressa 
dalla matrice CA%) e il genere e la persona del complemento, che saran¬ 
no gli stessi già fissati per il soggetto. 

Se la proposizione generata non è l'ultima del periodo, sarà scelta a caso 
una congiunzione e, dopo aver scelto un paradigma per il verbo ed avere 
coniugato il verbo nel modo, tempo e persona già scelti secondo tale pa¬ 
radigma, si passerà alla generazione della proposizione successiva. 
Dopo aver generato il periodo, il programma lo presenterà su video so¬ 
stituendo i verbi con sequenze di trattini, così da avere un trattino per 
ogni carattere del verbo coniugato. Il programma esaminerà successiva¬ 
mente un verbo alla volta, fornendone radice, modo, tempo e persona, 
ed aspetterà che l’utente scriva il verbo coniugato al posto dei trattini. 
Se quanto ha scritto l’utente è corretto si passa al verbo successivo, al¬ 
trimenti il programma comunica che la risposta è sbagliata e ne attende 
una nuova. Dopo tre errori, se vuole, l'utente potrà farsi comunicare la 
risposta esatta dal programma. 

Considerati tutti i verbi, il programma comunicherà il numero di errori 
effettuati, i modi e i tempi dei quali è stata sbagliata la coniugazione, 
dopo di che l’utente potrà specificare se vuole rieseguire l’intero program¬ 
ma generando un altro periodo o se preferisce terminare l’esecuzione. 
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Diagrammi 
di flusso 


Il programma 
presenta una struttura 
abbastanza semplice: 
consiste infatti in un 
singolo ciclo, all'interno del 
quale un certo numero di 
frasi viene generato, 
presentato e le risposte 
dell'utente vengono 
esaminale. 


START 


Dimensionamento 

array 


/ Lettura 


Z Stampa / 

presentazione 


Generazione 
delle frasi 


Z Visualizzazione 

delle frasi 

Z Visualizza 

domande e 
legge risposte 

Z Visualizza 

commenti 

Sl Si vuole 

V continuare? / 
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Alcuni dei blocchi interni a 
questo ciclo sono 
presentati in dettaglio: in 
particolare, il blocco di 
generazione delle frasi 
consiste a sua volta in un 
ciclo, eseguito per ogni frase, 
all’interno del quale viene 
determinata la struttura 
della frase considerata. 


Loop di generazione 
delle frasi 


o- 


Generazione frasi latine 

Determina numero 
frasi da 
generare 





Genera un numero casuale 
intero MAX% che può 
assumere i valori 1. 2 o 3 


Il modo è obbligato dopo un 
punto (imperativo) o dopo 
la congiunzione UT 
(congiuntivo) 


I tempi consentiti per i vari 
modi sono indicati nella 
matrice TC%. Il tempo 
è memorizzato in T% 


Il genere (1, 2 o 3) è 
memorizzato in SG% 


Se il modo è imperativo 
si considerano solo la 2 a e 
la 5° persona, se è infinito si 
annulla la persona 


UT è l'unica congiunzione 
possibile dopo un imperativo, 
e il congiuntivo è l'unico 
modo possibile dopo 
la UT 


o 



NO 


’ \SI 

Ultima \ _ 

frase? 


Alla visualizzazione 
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Il blocco di visualizzazione 
domande e lettura risposte 
è espanso in un ciclo, 
eseguito per ogni frase, di 
visualizzazione della 
domanda e di lettura delle 
risposte. Dato che per ogni 
frase si possono operare 
più tentativi di risposta, 
all'interno del ciclo 
precedente ne è posto un 
altro, che viene eseguito 
per acquisire un singolo 
tentativo di risposta. 


Visualizzazione domande e lettura risposte 

_ 

Visualizza modo, tempo. 


o- 


Z Visualizza 

domanda 


/ Posizionamento 
cursore e 
acquisizione 
risposta / 

Z Visualizza 75 / La risposta 

messaggio dt /<< è corretta? 

conferma 


R s > /-?«/ 


^ SI 


Alla visualizzazione 
dei commenti 


Incrementa 
contatore errori 


SI 


O , Visualizza 

V" / soluzione J 


persona e presente indicativo 
del verbo da coniugare 


L'acquisizione della risposta 
è ottenuta con una maschera 
video (vedi dettaglio) 


Si confronta il verbo coniugato 
(SLS(I)) con la risposta 
immessa (RISS) 


Il numero degli errori 
commessi è contenuto 
nel vettore ERR 


N °„..^ 3 errori? ^ 

SI ^ 

O N0 / si vuole la 

\ \ soluzione? 
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Infine, è presentata 
l'espansione del blocco di 
acquisizione della risposta 
(interno al precedente), che 
permette all'utente di 
scrivere la risposta ed 
eventualmente correggerla, 
offrendo così una piccola 
possibilità di editing di 
frasi, possibilità che i più 
volenterosi potrebbero 
pensare di ampliare 
definendo nuovi comandi 
di modifica del testo 
scritto. 


Posizionamento cursore 
e acquisizione risposta 


Scandisce II 
video fino a 
trovare II primo 
trattino 


In uscita dal blocco 
la posizione dei primo 
trattino è MV+W 



Legge II carattere 
contenuto nella 
locazione puntata 


; ( 


È il copia- 
caratteri? 


> 


- oo 


Pone in positivo 
il carattere 
In MV + W 


Toglie a RIS$ 
l’ultimo carattere 


SI 


Visualizza II 
carattere 


Aggiunge II 
carattere alla 
risposta 


K = K-1 

1 

L§ 


9 


Azzera la variabile 
contenente il 
carattere digitato 


K=K+1 


NO 

4 


7 --. 51 

Fine parola? Al 


controllo dalla risposta 
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Il programma 


Le linee 660+670 
dimensionano gli array 
utilizzati nel seguito, che 
vengono poi letti con le 
istruzioni 690+1390. Le 
linee 1421 + 1450, 
chiamando la routine 
62000, fanno scrivere sul 
video l'intestazione del 
programma: la linea 62000 
chiama a sua volta la 
routine 61000, che inializza 
un certo numero di 
costanti, oltre ai registri 
relativi al suono. 

La linea 1490 chiama la 
routine 3130, che genera le 


50 REM ********************** 

60 REM * COMPUTO,COMPUTAS.. * 

70 REM ********************** 

110 REM PRINCIPALI VARIABILI UTILIZZATE 


130 REM MODIJO 
140 REM TMSO 
145 REM SG*<> 
150 REM TOSO 
160 REM 30*0 
170 REM CM*0 
180 REM CAXO 
190 REM CN*C> 
200 REM DES*0 
210 REM PD*<> 
220 REM DGN*<> 
230 REM MAXJiO 
240 REM CD2 
260 REM MX 
270 REM TV. 

280 REM SRX 
290 REM SGX 
300 REM VRXO 
305 REM VGXO 
310 REM VtViO 
320 REM VTZO 
330 REM ST$0 
332 REM CC*<> 
335 REM BO 
350 REM NP 
360 REM CGV. 

370 REM CZ*<> 
380 REM RPZO 
385 REM SLJO 
390 REM PPES 
400 REM PER* 

410 REM SUP* 

420 REM INF* 

440 REM C 
450 REM RI*.P2* 
470 REM MV 
430 REM W 
490 REM BF* 

500 REM TT* 

510 REM RIS* 

520 REM ERRO 
530 REM PG* 


MODI 
: TEMPI 
GENERI 

TEMPI CONSENTITI 
: SOGGETTI 
: COMPLEMENTI 
: COMPLEMENTI AMMESSI 
CONGIUNZIONI 
; DESINENZE 
: PARADIGMI 
: DESINENZE GEN/NUM 
: NUMERO FRASI 
: MODO OBBLIGATO 
; MODO 
: TEMPO 
: PERSONA 
: GENERE 

: PERSONE SCELTE 
: GENERI SCELTI 
: MODI SCELTI 
: TEMPI SCELTI 
: SOGGETTI SCELTI 
COMPLEMENTI SCELTI 
: PARADIGMI SCELTI 
: TIPO COMPLEMENTO 
: CODICE CONGIUNZIONE 
; CONGIUNZIONI SCELTE 
: NUMERO PARADIGMA 
: VERBI CONIUGATI 
:PRES. 

: PERF. 

SUP. 

: INF. 

CODICE CONIUGAZIONE 
BRIGHE MATRICE DESINENZE 
^LOCAZIONE MEMORIA VIDEO 
•LOCAZIONE INIZIO MASCHERA 
: BUFFER DI STAMPA 
: CARATTERE DIGITATO 
RISPOSTA 
-ERRORI COMMESSI 
: NOME PROGRAMMA 
550 REM CARATTERI DI CONTROLLO 
570 REM CHR*<147> : CLR = «3« 

580 REM CHR*(145): CURSORE IN ALTO = "T 
590 REM CHR*<18) :RVS ON = "a" 

600 REM CHR*(19> : HOME = "3" 

610 REM CHR*(157) : CURSORE A SINISTRA=''ir 
620 REM CHR*<29) : CURSORE A DESTRA = "II" 

640 REM DIMENSIONAMENTO VARIABILI 
.660 DIM TCX(9,7),S0*<3,2,3),CM*<3,3,2,3> 

664 DIM M0DI*<9),TH*<6),CN*<5),ERR<3) 

666 DIM VRXC3), VMX(3), VT/i(3),ST*(3), VGZ(3> 

668 DIM CC*<3),B<3),CZ*(3),SL*(3>,SG*<3) 

670 DIM CAX<9,4),DES*<14,6),PD*(10,4),DGN*(12> 
690 REM LETTURA VETTORIZMATRICI 
740 FOR I =1 TO 9 
750 READ MODI*<I> 

760 NEXT I 
780 REM TEMPI 
800 FOR 1=1 TO 6 
810 READ TM*<I) 

820 NEXT I 
840 REM MODI/TEMPI 
860 FOR 1*1 TO 9 
870 FOR J=1 TO 7 
880 READ TCZa.Jl 
890 NEXT J,I 
910 REM SOGGETTI 
930 FOR 1=1 TO 3 
940 FOR J=0 TO 1 
950 FOR K=1 TO 3 
360 READ S0*<I,J,K> 

970 NEXT K,J,I 
990 REM COMPLEMENTI 
1010 FOR 1=1 TO 3 
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frasi da presentare 
all’utente in modo casuale, 
pur rispettando le regole 
sintattiche di formazione 
delle frasi. In particolare, 
per ogni verbo della frase, 
alle linee 3200+3240 viene 
scelto il modo e alle linee 
3280+ 3300 viene scelto, a 
caso, un tempo fra quelli 
esistenti nel modo già 
scelto. L’istruzione 3340 
determina il genere del 
soggetto, mentre le linee 
3490 + 3611 scelgono la 
persona a cui declinare il 
verbo: se il modo scelto è 
però l’infinito, le linee 
3619+3640 eliminano il 
soggetto, creando una 
proposizione oggettiva. 

Le linee 3680+3740 
assegnano un complemento 
alla proposizione, mentre le 
3780+3980 decidono come 
chiudere la frase, se con 
una congiunzione o un 
punto. Le linee 4020 + 4070 
scelgono poi il verbo da 
declinare e le 4110+ 4300 lo 
declinano nella forma già 
scelta chiamando la routine 
5570. Usciti dalla routine, 
la linea 1530 chiama la 
routine 4340 che stampa la 
frase generata sul video. 
Quindi, la linea 1570 
chiama la routine 4540 che, 
per ogni verbo contenuto 
nella frase, specifica tempo, 
modo e persona a cui va 
coniugato, legge le risposte 
dell'utente e tiene un 
conteggio del numero di 
errori effettuati. La linea 
1610 chiama la routine 5350 
che specifica il numero di 
errori commessi e indica 
quali parti dell'insieme di 
regole di coniugazione di 
verbi latini conviene che 
l'utente ripassi. Infine, le 
linee 1650+1690 chiedono 
all’utente se vuole 
continuare: in caso 
affermativo si torna alla 
presentazione, altrimenti il 
programma termina. 


1020 FOR J=1 TO 3 
1030 FOR K=0 TO 1 
1040 FOR Q=1 TO 3 
1050 READ CM*(I,J,K,Q> 

1060 NEXT Q-K,J,1 

1080 REM COMPLEMENTI AMMESSI 

1100 FOR 1=1 TO 9 

1110 FOR J=1 TO 4 

1120 READ CAX(I,J> 

1130 NEXT J ,I 
1150 REM CONGIUNZIONI 
1170 FOR 1=1 TO 5 
1180 READ CNS< I ) 

1190 NEXT I 
1210 REM DESINENZE 
1230 FOR I =1 TO 14 
1240 FOR J=1 TO 6 
1250 READ DESSCI,J> 

1260 NEXT J,I 
1280 REM PARADIGMI 
1300 FOR 1=1 TO 10 
1310 FOR J»1 TO 4 
1320 READ PD$(I,J) 

1330 NEXT J,I 

1350 REM DESINENZE GEN/NUM 
1370 FOR 1 = 1 TO 12 
1380 READ DGN$CI> 

1390 NEXT I 
1395 REM GENERI 
1400 FOR 1 = 1 TO 3 
1405 READ SG$CI) 

1407 NEXT I 

1410 REM PRESENTAZIONE 

1421 PG$="COMPUTO, COMPUTAS...“ : GOSUB 62000 
1430 PRINT CHR*<147>; 

1440 PRINT CHRtClS); 

1450 PRINT TAB<9>;" COMPUTO,COMPUTAS... PRINT:PRINT 

1470 REM GENERAZIONE FRASI 

1490 GOSUB 3130 

1510 REM STAMPA FRASI 

1530 GOSUB 4340 

1550 REM FORMULAZIONE DOMANDE 

1570 GOSUB 4540 

1590 REM STAMPA COMMENTI FINALI 
1610 GOSUB 5350 

1630 REM CONTINUAZIONE 0 FINE PROGRAMMA 
1650 PRINT PRINT" RICOMINCIAMO? (S/N)" 

1660 GET TT* 

1670 IF TT$="S" THEN GOTO 1430 

1680 IF TT$="N" THEN POME 53280,14:POKE 53281, 6: PRINT"!!" : PRINT CHR*(147):END 
1690 GOTO 1660 
1710 REM MODI 
1730 DATA IND.ATT. 

1740 DATA CONO. ATT. 

1750 DATA IMPER.ATT. 

1760 DATA INF.ATT. 

1770 DATA IND.PASS. 

1780 DATA CONO. PASS. 

1790 DATA IMPER.PASS. 

1800 DATA INF.PASS. 

1810 DATA GERUNDIVO 
1830 REM TEMPI 
1850 DATA PRES. 

1860' DATA IMPERF. 

1870 DATA FUTURO 
1880 DATA PERFETTO 
1890 DATA PIUCCH. 

1900 DATA FUT.ANT. 

1920 REM COMBINAZIONI AMMESSE MODI/TEMPI 

1940 DATA 6,1,2,3,4,5,6 

1950 DATA 4,1,2,4,5,0,0 

I960 DATA 1,1,0,0,0,0,0 

1970 DATA 3,1,3,4,0,0,0 

1980 DATA 6,1,2,3,4,5,6 

1990 DATA 4,1,2,4,5,0,0 

2000 DRTR 0-0,0,0,0,0,0 

2010 DATA 3,1,3,4,0,0,0 

2020 DATA 1,1,0,0,0,0,0 

2040 REM SOGGETTI MASCHILI 

2060 DATA AFFECTUS,AMOR,NOVUS MOS 
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Il numero limitato di 
termini latini disponibili e 
la casualità con la quale 
sono legati tra loro 
determinano a volte la 
mancanza di un nesso 
logico fra le diverse frasi 
presentate dal computer. 

Il programma non può 
infatti sostituire un buon 
testo o un bravo professore: 
resta comunque una sfida 
ai «latinisti» di ieri e una 
verifica grammaticale per 
gli studenti di oggi. 


2070 DHTR RFFECTUS,HORRORES, MORES 

2090 REM SOGGETTI FEMMINILI 

2110 DRTR SORS , MORS >PRUDENTIfi 

2120 DRTR RES SECUNDRE,RNGUSTIRE,RELIGIONES 

2140 REM SOGGETTI NEUTRI 

2160 DRTR FHTUM,CONSILIUM,STUDIUM 

2180 REM SOGGETTI NEUTRI 

2200 DRTR ODIA,SOLRCIR,OFFICIA 

2220 REM COMPLEMENTI OGGETTI 

2250 REM MASCHILI 

2270 DRTR PLRUSUM, ERROREM » PECCRTUM 
2280 DRTR SOPORES,RFFECTOS,RMORES 
2300 REM FEMMINILI 

2320 DRTR AVIDITRTEM,SUPERBIRM,OBLIVIONEM 
2330 DRTR RES ABSURDRS,PRIVRTIONES,CRLRMITRTES 
2350 REM NEUTRI 

2370 DRTR OBLECTRMENTUM,STULTE FRCTUM,OTIUM 

2380 DRTR LOGICA,OMNIfi,OFFICIA 

2400 REM COMPLEMENTI VARI SINGOLARI 

2420 DRTR OBLECTRMENTO,ONERE,HORRORE 

2430 DRTR ANIMI MOTU, SORTE,PROPTER ODIUM 

2440 DRTR CUM HVIDITflTE,OB MORTEM,IN SOLRCIO 

2460 REM COMPLEMENTI VARI PLURALI 

2480 DRTR RFFECTIBUS,RMORIBUS,RRTIBUS 

2490 DRTR HORRORIBUS,OBLIVIONIBUS,PECCRTIS 

2500 DRTR PRIVRTIONIBUS,PLRUSIS,INRNIBUS 

2520 REM COMPLEMENTI D'AGENTE E DI CRUSR EFFICIENTE 

2540 DRTR SAPIENTIfi.CONSILIIS,STUDIO 

2550 DRTR SORTE,FATO,MORTE 

2560 DRTR ODIO,PRUDENTIR,ARTE 

2570 DRTR R CICERONE,R CRESRRE, R SANTIPPE 

2580 DRTR R CRTILINR,RB RLEXRNDRO,RB OGVGIfl 

2590 DRTR ONERE,fl CLAUDIO,DEIS 

2610 REM MRTRICE COMPLEMENTI AMMESSI 

2630 DRTR 3,1,2,3 

2640 DRTR 3,1,2,3 

2650 DRTR 3,1,2,3 

2660 DRTR 3,1,2,3 

2670 DRTR 2,2,3,0 

2680 DRTR 2,2,3,0 

2690 DRTR 2,2,3,0 

2700 DRTR 2,2,3,0 

2710 DRTR 1,2,0,0 

2730 REM CONGIUNZIONI 

2750 DRTR QUOD,SED,UT,CUM,. 

2770 REM DESINENZE 

2790 DRTR M,S,T,MUS,TIS,NT 

2800 DRTR R,RIS,TUR,MUR,MINI,NTUR 

2810 DRTR 0,RS,RT,RMUS,RTIS,RNT 

2820 DRTR EO,ES,ET,EMUS,ETIS,ENT 

2830 DRTR 0,IS,IT,IMUS,ITIS,UNT 

2840 DRTR IO,IS,IT,IMUS,ITIS,IUNT 

2850 DRTR BO,BIS,BIT,BIMUS,BITIS,BUNT 

2860 DRTR BOR,BERIS,BITUR,BIMUR,BIMINI,BUNTUR 

2870 DRTR RM,ES,ET,EMUS,ETIS,ENT 

2880- DRTR RR,ERIS,ETUR,EMUR,EMINI,ENTUR 

2890 DRTR I,ISTI,IT,IMUS,ISTIS,ERUNT 

2900 DRTR ERO,ERIS,ERIT,ERIMUS,ERITIS,ERINT 

2910 DRTR SUM,ES,EST,SUMUS,ESTIS,SUNT 

2920 DRTR ERO,ERIS,ERIT,ERIMUS,ERIT1S,ERUNT 

2940 REM PARADIGMI 

2960 DRTR COERCEO,COERCUI,COERCITUM,COERCERE 
2970 DRTR EXCITO < EXCI TflV I, EXCITRTUM, EXCITRRE 
2980 DRTR CRPIO,CEPI,CRPTUM,CAPERE 
2990 DRTR OSTENDQ,OSTENDI,OSTENSUM,OSTENDERE 
3000 DRTR TEMPERO,TEMPERAVI,TEMPERflTUM,TEMPERARE 
3010 DRTR IMPEDIO,IMPEDIVI,IMPEDITUM,IMPEDIRE 
3020 DRTR RGNOSCO,RGNOVI,RGNITUM,RGNOSCERE 

3030 DRTR RDMINISTRO,RDMINISTRRVI,RDMINISTRRTUM,flDMINISTRRRE 

3040 DRTR INDUCO,INDUXI,INDUCTUM,INDUCERE 

3050 DRTR VINCO,VICI,VICTUM,VINCERE 

3070 REM DESINENZE GENXNUM 

3090 DRTR US-fl,UM,I,RE,R,UM,RM,UM,OS,RS.fì 

3095 REM GENERI 

3100 DRTR MASCHILE,FEMMINILE,NEUTRA 

3110 REM GENERAZIONE FRASI 

3130 CDX=0 

3140 MRX2=RND(0)*3+1 

3150 FOR 1 = 1 TO MRXX 

3155 F=0 


64 




3170 REM SCELTR DEL MODO 

3200 IF CDZ=0 THEN MX=RND<0>*9*1 : GOTO 3240 

3210 MX=RND<0>+.5 

3220 IF MX=1 THEN H/i=CD2: GOTO 3280 

3230 MX=CDX+4: GOTO 3280 

3240 IF MX=3 OR MZ=7 THEN GOTO 3200 

3260 REM SCELTR DEL TEMPO TRA QUELLI CONSENTITI 

3280 IF TCX(MX,1)= 0 THEN GOTO 3200 

3290 T2=TC2(M?i>RND(0)*TC2<M2,1 >+2> 

3300 VM2< I >*MZ ■ VTZ( I )=T2 

3320 REM SCELTR DEL GENERE PER IL SOGGETTO 
3340 SGX=RND<0>*3+1 

3342 IF M2<=4 THEN VG2(I)=0GO TO 3490 

3343 IF MZ09 RND TZ<=3 THEN VGX<I1=0:GO TO 3490 

3344 VGXCI)=SGX 

3460 REM SE IL MODO E' IMPERATIVO SCEGLIE LR SECONDA 0 LR 

3470 REM QUINTA PERSONR E SALTA LA SCELTA DEL SOGGETTO 

3490 IF MXC>3 AND MX<>7 THEN GOTO 3570 

3500 SR2=RNDC0)+.5 

3510 IF SRX=1 THEN SR2=2'G0T0 3530 

3520 3R2=5 

3530 ST$(IGOTO 3640 

3550 REM SCELTA DELLA PERSONA DEL SOGGETTO 

3570 $RX=RNB< 0)46+1 IF SR2=3 OR SR2=6 THEN F=1 
3390 IF SR2>3 THEN NUM=1 GOTO 3610 
3600 NUM=0 
3610 SS2=RND < 0)*3+1 


3611 IF MJi<>4 AND MX08 THEN GOTO 3620 

3614 REM SE IL MODO E' INFINITO ANNULLA LA PERSONA E CREA UNA FRASE OGGETTIVA 

3619 ST$<I)="CREBO "+CM*d,SG2,NUM,SS2> SR2=0 GOTO 3630 

3620 ST« I)=S0$(SG2/NUM»SSX) : IF F<>1 THEN STJd>=”“ 

3630 ST*d)=ST*d>+" “ 

3631 IFVGXd>=3 AND NUM=0 THEN SRZ=3 

3632 IFVGXd>=3 AND NUM=1 THEN SR2=6 
3640 VRXd)«SR2 

3660 REM SE IL MODO E' PASSIVO SCEGLIE UN COMPLEMENTO D'AGENTE 
3680 IF M>4 THEN NP=3■GOTO 3?40 

3700 REM ALTRIMENTI UN COMPLEMENTO TRA GLI ALTRI CONSENTITI 
3720 NP=CAX ( ir/., RND < 0 ) *CAX < M , 1 ) +2 ) 

3730 IF NP=3 THEN GOTO 3720 

3740 CC*d)-CM*<NP,RND<0)*3+l,RND<0)+.5,RND<0>*3+l) 

3760 REM SE E' L'ULTIMA FRASE C'E' IL SEGNO 
3780 IF I=MAXX THEN CZ$(I>=CN*<5> : GOTO 4020 
3790 CDX=0 

3810 .REM DOPO UN IMPERATIVO FORZA LR SCELTA DI "UT" 

3830 IF MX=3 OR MX=7 THEN CGX=3:Q0T0 3930 

3850 REM ALTRIMENTI SCEGLIE UNA CONGIUNZIONE CASUALE 

3870 CGX=RND<0>*5+1 

3880 IF CGX03 THEN GOTO 3970 

3890 IF <MX=2 OR MX=6> THEN GOTO 3870 

3910 REM SE ESCE UT FORZA LA SCELTA DI UN CONGIUNTIVO 

3930 CDX=2 : GOTO 3980 

3950 REM SE ESCE IL PUNTO FORZA LA SCELTA DI UN IMPERATIVO 

3970 IF CGX=5 THEN CZ*<I)=CNJ<5) : CDX=3 : GOTO 4020 

3980 CZ*d>=" "+CNSCCGIO 

4000 REM SCEGLIE UN PARADIGMA 

4020 RPX=INTCRND<0>*10+1) 

4030 Bd)=RPX 
4040 PRE$=PD*CRPX,1> 

4050 PER*=PD$<RPX,2> 

4060 SUP$=PD*<RPX,3> 

4070 INF*=PD$<RPX,4> 

4090 REM E RICONOSCE LR CONIUGAZIONE DALL'INFINITO 
4110 DI*=RIGHT*dNF*,3> 

4120 IF DI*0"ERE" THEN GOTO 4160 

4130 IF RIGHT*(PRE*,2)= ,, I0“ THEN C-5G0T0 4210 

4140 IF RIGHT*tPRE»,2)="E0" THEN C=2:G0T0 4210 

4150 C=3 : G0T0 4210 

4160 IF DIt =,, ARE" THEN C=i:GOTO 4210 

4170 C=4 

4190 REM PREPARA ALCUNE VARIABILI DAL PARADIGMA 
4210 Rl*=DES*d,SRX) :R2*=DES$C2,SRX) 

4220 P5*=LEFT*( SUP*, LENCSUP* ) -2 ) +DGN* <SGX+NUM*3 > 

4230 I2*-LEFT*dNF*,LENdNF*)-2> 

4240 I3*=LEFT*<INF*,LEN<INF*)-3) 

4250 DP$=LEFT*<PER*,LEN<PER$)-1) 

4270 REM CONIUGAZIONE 
4280 GOSUB 5570 
4290 NEXT I 
4300 RETURN 

4320 REM SUBROUTINE DI STAMPA 
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4340 W=0:BF*="" 

4350 FOR 1 = 1 TO MAX* 

4360 BF*=BF*+ST*<I> 

4380 REM COSTRUISCE LA MASCHERA BEL VERBO 
4400 FOR K=1 TO LENCSL*<I>> 

4410 BF*=BF*+"-" 

4420 NEXT K 


4430 BF*=EF*+" "+CC*a)+CZ*<I) 

4450 REM COMPOSIZIONE STAMPA 

4470 COSUB 6900 

4480 NEXT I 

4430 PPINT BFf 

4500 RETURN 

4520 REM SUBROUTINE F0RMULA2I0NE BOMANBE 
4540 FOR 1 = 1 TO MAXZ 
4550 ERRCI>=0 

4560 POKE 214.-13 : PRINT:PRINT ” 

4570 PRINT CHR*a45);M0BIt<VMZ(n);'' ";TM*<VTX<I>>; 

4580 IF VRZCI»0 THEN PRINT VRX(I) PERS.“;“ ";SG*<VGXa>> 
4590 PRINT" 

4600 PRINT 

4610 PRINT * DI , ',CHR$(18);PBf<Ba>,l);CHR* <146>; n 

4630 REM RICERCA MASCHERA VIDEO 

4670 IF PEEK<MV+H)=ASC<) THEN GOTO 4690 

4680 W=H+1 : GOTO 4670 

4690 K=0 

4700 POKE MV+W+K ■PEEK( MV+W+K1+128 
4720 REM LETTURA TASTIERA 
4740 GET TT* 

4770 REM SIMULAZIONE BACKSPACE 

4790 IF TT*0 CHP*<157> THEN GOTO 4880 

4800 IF K<1 THEN GOTO 4740 

4810 POKE MV+M+K,PEEK(MV+U+K>-128 

4820 K=K-1 

4830 RI S*=LEFT* ( RIS*, LEN< RIS* > -1 > 

4840 GOTO 4700 

4860 REM SIMULAZIONE CURSORE A DESTRA 
4880 IF TT$0 CHR*<29> THEN GOTO 4940 
4890 LL=PEEK(MV+M+K)-64 
4395 IF LL=96 THEN LET TT*=" "GOTO 4970 
4900 TT*=CHR*<LL> 

4920 REM CONTROLLO E VISUALIZZAZIONE CARATTERE 
4940 IF TT*=CHR*<32) THEN LL=96:GOTO 4970 
4950 IF m<“A" OR TT$>"2" THEN GOTO 4740 
4960 LL=ASC<TT*> 

4970 POKE MV+W+K, LL-64 
4930 RIS*=RIS*+TTì 


4990 

5000 

5020 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5170 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5330 

5350 

5360 

5370 


TT*="“ 

IF K<LEN(SL*(I>> -1 THEN K=K+lGOTO 4708 
REM CONTROLLO RISPOSTA 
PRINT CHR*<19> 

POKE 214.19PRINT 
IF RIS*OSL*<I> THEN GOTO 5120 
PRINT "*** ESATTO ##*" 

FOR PIT=1 TO 1000:NEXT RIT 
PRINT CHR*<145>;" 

RISt="” 

GOTO 5300 

PRINT "*#* ERRATO ***" 

FOR RIT=1 TO 1000:NEXT 

PRINT CHR*<145V* “ 

RISS="" 

REM CONTEGGIO ERRORI 

ERR(I)*ERR<I)+1 

IF ERRC 1X3 THEN GOTO 4690 

PRINT CHP*<145>" TI ARRENDI? (S/N)9 ":pRINT CHR*C145>, 
GET TT* 

IF TT*0"S" THEN GOTO 5280 
PRINT " "SL*<I>" 

FOR RIT=1 TO 1000:NEXT RIT 
PRINT CHR*<145>;CHR*<145>" 

GOTO 4690 

IF TT*="N" THEN PRINT " ”:GOTO 4690 

GOTO 5220 
NEXT I 
RETURN 

REM SUBROUTINE COMMENTO 
PRINT CHR*<147> 

PRINT" PER CONTINUARE PREMI" 

PRINT"B LA BARRA SPAZIATRICES" 


:GOTO4600 




5380 PRINT 

5390 POR 1*1 TO MAXX 

5400 IP ERRCI>=0 THEN GOTO 5510 

5410 PRINT" NELLA FRASE “li;" HAI COMMESSO" 

5420 PRINT:PRINT ERR<I>;“ ERROR"; 

5430 IF ERR<I)=1 THEN PRINT"E." GOTO 5450 
5440 PRINT"I." 

5450 PRINT 

5460 PRINT" RIPASSA 

5470 IF LEFT*CMODI$<VMXa>>,l>="I" THEN PRINT" L' 1 '; :GOTO 5490 
5480 PRINT" IL N 

5490 PRINT MODIf(VMX<I>>" "TMf(VTX(I)) 

5500 PRINT 

5510 IF PEEK< 197)060 THEN GOTO 5510 
5520 NEXT I 
5530 RETURN 

5550 REM SUBROUTINE DI CONIUGAZIONE 

5570 ON MX GOTO 5610,6120.6480,6610,5610.6120/6480,6610,6830 
5590 REM INDICATIVO 

5610 ON TX GOTO 5650,5770,5850,5940,6000-6060 

5630 REM PRESENTE 

5650 IF C=5 THEN P=6GOTO 5670 

5660 R-C+2 

5670 A»=I3$+DES*<R,SRX) 

5680 IF MX<5 THEN SL*(I> =AT•RETURN 

5690 IF SRX =1 THEN PS=Af+R2$ ; GOTO 5720 

5700 IF SRX =2 AND<C=3 OR C=5> THEN Pt=I2*+R2$ : GOTO 5720 

5710 P*=LEFmA*,LEN(A*)-LEN<Rl*))+R2* 

5720 SL$<I)=P* 

5730 RETURN 

5750 REM IMPERFETTO 

5770 IF C=4 OR C=5 THEN A*=I3*+"IE"■GOTO 5790 
5780 A$=I2$ 

5798 IF MX<5 THEN SL$<I)=A*+"BA"+R1*RETURN 
5800 SL*a)=A*+"BA"+R2* 

5810 RETURN 
5830 REM FUTURO 

5850 IF C=3 THEN R=9:F*=I3* : G0T0 5890 
5860 IF C04 AND C<>5 THEN GOTO 5880 
5865 R=1 

5875 IF SRX=1 THEN F*=I3$+"IR":GOTO 5890 
5878 F*=I3$+"IE":G0T0 5890 
5880 F*=I2$:R=7 

5890 IF MX<5 THEN SL*<I)=F*+DES*CR,SRX): RETURN 
5900 SL*(I)=F*+DES*CR+1,SRX): RETURN 
5920 REM PERFETTO 
5940 R=11 

5950 IF MX<5 THEN SL*<I )=DP*+DES$<R,SRX): RETURN 
5960 SL*<I)=P5*+" "+DES*(R+2,SRX>:RETURN 

5980 REM PIUCCHEPERFETTO 
6800 R=1I 

6010 IF MX<5 THEN SL*( I )=DP*+"ERA"+R1* : RETURN 
6020 SL*CI>=P5*+" "+"ERA"+DES*<1,SRX)-RETURN 
6040 REM FUTURO ANTERIORE 
6060 R=12 DP*=LEFT*<PER*,LEN<PER*)-1) 

6070 IF MX<5 THEN SL*(I>=DP*+DES*<R,SRX) : RETURN 
6080 SL$<I)=PS*+" "+DES*CR+2,SRX) : RETURN 

6100 REM CONGIUNTIVO 

6120 ON TX GOTO 6160,6290,63999,6360,6430 

6140 REM PRESENTE 

6160 IF C=5 THEN R=6 GOTO 6210 

6170 R=C+2 

6130 IF C=1 THEN A*=I3*+"E"+R1* : G0T0 6220 
6190 IF C=3 THEN A$= I3*+"R"+R1* : GOTO 6220 
6200 IF C=2 OR C=4 THEN AJ=I2$+"A"+R1TGOTO 6220 
6210 At=I3$+"IA"+Rl* 

6220 Pf=LEFT$<A$,LEN(A$)-LEN(R14))+R2* 

6230 IF MX<5 THEN SL$CI)=A$RETURN 
6240 SL*H)*P* 

6250 RETURN 

6270 REM IMPERFETTO 

6290 IF C=4 OR C=5 THEN AJ=I3*+"IE" : GOTO 6310 
6300 A*=I2I 

6310 IF MX<5 THEN SL*(I)=INF$+R1* : RETURN 
6320 SL*(I)=INF$+R2$:RETURN 

6340 REM PERFETTO 

6360 DPt=LEFTf(PER*,LEN<PER*)-l> : R=I1 
6370 A$=DP*+"ERI"+R1*:P*=P5*+" SI"+R1* 

6380 IF MX<5 THEN SL*<I)=DP*+"ERI "+R1$ RETURN 
6390 SLTCI>=P5$+" SI"+R1$ : RETURN 
6410 REM PIUCCHEPERFETTO 




6430 IF MJi<5 THEN SL*<I> =PEP$+“SSE" +R1* ■ RETURN 

6440 SL*<I>=P5*+" ESSE“ +R11 :RETURN 

6460 REM IMPERATIVO 

6480 IF SRZ=5 THEN GOTO 6530 

6490 IF 0=1 THEN SL$<I)=I3*+"A" : RETURN 

6500 IF C=4 THEN LET SLTCI >=I3*+" I " : RETUPN 

6510 SL*a) = I3*+"E" RETURN 

6520 SL$(I)=I3*+‘'I" RETURN 

6530 IF C=l THEN SL*< I >=I3$+"A" : GOTO 6560 

6540 IF C=2 THEN SL*<I)=I3*+"E": GOTO 6560 

6550 SL*a>=I3$+"I" 

6560 SLS(I>=SL$<I)+"TE" 

6570 RETURN 

6590 REM INFINITO 

6610 BS*=LEFT*<SUP*,LENCSUP*>-2> 

6615 ON TX GOTO 6650,63999.6720,6770 
6630 REM PRESENTE 

6650 IF M/i<5 THEN SL*<I)=INFT RETURN 
6660 IF 0=3 OR C=5 THEN SLSCI>=I3*+"I" ; RETURN 
6670 SLJ < I )=LEFT*< INF*,LEN< INF*)-1>+"I" : RETURN 
6690 REM FUTURO 

6720 IF MX<5 THEN SL*a)=D3*+"UR"+BGN*<SG2+NUM*3+6> + " "+"ESSE" : RETURN 
6730 SL*<I>=DS*+"UM IRI": RETURN 
6750 REM PERFETTO 

6770 IF MX<5 THEN SL*(I>=PER*+“SSE" ; RETURN 
6780 SL*a>=BS*+DGN*<SGX+NUM*3+6> + " ESSE":RETURN 
6800 REM GERUNDIVO 
6820 REM 

6830 IF 0=4 THEN A*=I2*+"ENDGOTO 6350 
6335 IF 0=5 THEN A*=I3*+"IEND" GOTO 6850 
6340 A*=I2*+"ND" 

6850 SL*CI>=A* +D0N*<SGX+NUM*3)+“ "+DES*<13.SRX) 

6860 RETURN 

6880 REM SUBROUTINE DI COMPOSIZIONE 
6900 BF*=BF*+" " 

6910 IF LEN<BF*K40 THEN RETURN 
6920 SN=40 

6930 IF MID*<BF*,SN,1>=CHP*<32>0R MIDtCBFS.SN,1>=CHR*<160> THEN GOTO 6950 
6940 SN=SN-1: GOTO 6930 
6950 PRINT LEFT*(BF*, SN-1 ) 

6960 BF*=PIGHT*(BFt, LEN(BF*)-SN) 

6970 GOTO 6910 

60960 REM SUBROUTINE:INIZIALIZZAZIONE COSTANTI 

6O930 REM CIRCUITO VIDEO 

61000 VI=53248 

61020 REM CIRCUITO SUONO 

61040 SI=54272 

61060 REM MEMORIA VIDEO 

61080 MV=1024 

61100 REM MEMORIA COLORE 

61120 MC=55296 

61180 REM INIZIALIZZAZIONE CHIP SUONO 

61200 FOR 1=0 TO 24 

61210 POKE SI+I,0 

61220 NEXT I 

61230 RETURN 

61930 REM SUBROUTINE STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PGf 

62000 OOSUB 61000 

62010 POKE VI+32-15 

62020 POKE VI+33,15 

62030 PPINT "n»HtNi!l" ■ 

62040 PRINT TAB(6>1 " r--i" 

62050 FOR 1=1 TO 5 

62060 PPINT TAB<6);“ I I" 

62070 NEXT I 

62080 PRINT TABC6) i “ - - J " 

62090 PRINT TAB<6);”W!IHro!i™DIGITA SRETURNB PER PROSEGUIRE" 

62100 PPINT '«UTOM" 

62110 FOR 1=1 TO 5 
62120 PRINT TAB<7>; 

62130 FOR J»t TO 26 
62140 PRINT '1SS "1 
62150 NEXT J 
62160 PRINT 
62170 NEXT I 

62190 REM ORA SCRIVO IL TITOLO 

62210 PRINT "1S«®IIII!»»1'',TAB<<40-LEN<PG*>)/2);"»«";PG* 

62220 GET Z9t 

62230 IF Z9*OCHR*C 13) THEN GOTO 62220 
62240 PPINT "35"; 

62250 RETURN 
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Strike and ball 



Questo programma, che deriva dal famoso Mastermind, consiste in una 
gara fra due giocatori, nel corso della quale ciascuno di essi deve dap¬ 
prima scegliere un numero segreto e poi cercare di indovinare il numero 
scelto daH’avversario. A turno ciascun giocatore dice un numero e l’avver¬ 
sario gli dà una risposta che comunica quanto il numero detto è vicino a 
quello segreto, specificando il numero delle cifre della risposta che sono 
presenti anche nel numero segreto ma non nella stessa posizione (cifre 
ball), e il numero delle cifre presenti anche nel numero segreto e che occu¬ 
pano la stessa posizione nei due numeri (cifre strike). Ad esempio, se il 
numero segreto è 4371 e il nostro avversario ha tentato di indovinarlo 
dicendo 2357, la nostra risposta sarà 1 cifra ball (il 7) e 1 cifra strike (il 3). 
Man mano che il gioco va avanti si può facilmente intuire come, in base 
alle risposte, alcune cifre devono essere eliminate dai tentativi successi¬ 
vi, altre devono essere solo cambiate di posizione (cifre ball), altre anco¬ 
ra, una volta individuate, non devono essere più spostate (cifre strike). 
Vince chi per primo indovina il numero segreto scelto daH'avversario. 


Analisi del 
problema 





Il programma che ora progetteremo dovrà consentire di giocare avendo 
come avversario il CBM-64. Il computer e l’utente sceglieranno ciascuno 
un numero a caso composto di quattro cifre comprese tra 0 e 9. A turno 
essi potranno poi effettuare dei tentativi, fino ad un massimo di quindi¬ 
ci. Il calcolatore e l’utente comunicheranno di volta in volta all'avversa¬ 
rio il numero di strike e di ball realizzati nell’ultimo tentativo. 

La scelta del numero segreto da parte del CBM-64 avviene utilizzando 
la funzione RND(X), che genera numeri reali compresi tra 0 e 1 (estremi 
esclusi) uniformemente distribuiti nell’intervallo. Questa funzione per¬ 
mette di ottenere sequenze di numeri «effettivamente casuali», nel sen¬ 
so che una volta ottenuta una sequenza non è più possibile riottenerla 
da capo in modo identico, oppure sequenze «ripetibili» di numeri casua¬ 
li, cioè sequenze i cui elementi possano essere riottenuti da capo, tutti 
e nello stesso ordine. Attribuendo alla funzione RND(X) argomento uguale 
a 0 si ottiene una sequenza di numeri ripetibili, che è quella che fa al 
caso nostro. Ogni numero generato è poi moltiplicato per 10, così da ot¬ 
tenere un numero casuale compreso tra 0 e 10 (estremi esclusi); infine 
si utilizza la funzione INT(X), che restituisce solo la parte intera del nu¬ 
mero casuale generato. Così, con la sequenza di istruzioni 
FOR 1 = 0 TO 3 : NC(I)=INT (RND(O)* 10) : NEXT I 
si otterrà la generazione del numero segreto da parte del CBM-64. 

La maschera riepilogativa del gioco dovrà contenere, per ogni tentativo 
effettuato, il numero d’ordine del tentativo, la sequenza di cifre dichia¬ 
rata in quel tentativo dal CBM-64 (matrice TC) o dal giocatore (matrice 
TU), il numero delle cifre strike e il numero delle cifre ball. 

La determinazione del numero di strike e ball da parte del CBM-64 av¬ 
verrà nel modo seguente: il programma andrà dapprima a verificare, po¬ 
sizione per posizione, se nel numero proposto e in quello segreto c’è la 
stessa cifra (determinazione delle cifre strike), quindi, dopo aver «mar¬ 
cato» le cifre già contate ponendole uguali a 0, passerà alla determina¬ 
zione delle cifre ball, confrontando tutte le cifre del numero proposto 
con quelle del numero segreto; quando il programma avrà trovato due 
cifre uguali (e diverse da 0) le porrà uguali a 0 (per non ricontarle) e au¬ 
menterà di 1 il contatore delle cifre ball. 

Al termine dei tentativi relativi ad un certo numero segreto (indovinato 
o no) il programma chiederà se si vuole tentare di indovinare un altro 
numero, e in caso affermativo rieseguirà l’intero procedimento. 
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Diagrammi 
di flusso 


Dopo l’inizializzazione delle 
costanti e la visualizzazione 
del titolo, il programma 
chiede all’utente il nome e, 
dopo aver generato il 
proprio numero segreto, 
domanda chi deve giocare 
per primo. 

Visualizzata la maschera di 
riepilogo del gioco, se il 
primo a giocare è il C-64, 
il programma genera e poi 
visualizza il tentativo, 
restando in attesa della 
risposta, che l’utente deve 
digitare immettendo il 
numero di strike sotto la S 
e il numero di ball sotto la 
B. Una volta immessa, la 
risposta è memorizzata. Se 
a giocare per primo è 
invece l’«umano», la 
macchina si pone in attesa 
di leggere il tentativo. 
Effettuata la lettura, il 
programma calcola il 
numero di strike e ball 
realizzati e li visualizza nelle 
corrispondenti posizioni. 

Per decidere se il gioco è 
finito basta vedere se uno 
dei due giocatori ha 
realizzato con il suo 
tentativo quattro cifre 
strike. Comunque, prima di 
proclamare il vincitore, si 
deve verificare il numero 
dei tentativi effettuati dai 
due giocatori: se i due 
numeri sono uguali può 
essere proclamato il 
vincitore, altrimenti si deve 
concedere l’ultima 
possibilità al giocatore che 
ha effettuato un tentativo 
in meno. Nel caso che al 
termine ambedue i 
giocatori abbiano realizzato 
quattro strike la partita è 
dichiarata pari. La parte 
più interessante del 
programma è quella relativa 


START 


Inizializzazione 


In seguito alla mancata 
immissione del nome la 
macchina identificherà 
l'avversario chiamandolo 
«umano» 


Z Visualizza 

titolo / 

Z Richiesta nome 

giocatore 


Genera codice 
segreto C64 


■o 


Il oodice è composto dì 
quattro cifre 


Z Chiede chi gioca 

per primo 

Z Visualizza 

maschera 
di riepilogo 


.. . . >>^ 


Genera tentativo 
C64 


Calcola numero 
strike e ball 


Z Visualizza f m 
risultato 


NO 


NO 

Superato 
numero massimo 
tentativi? 


( 


T 


Z Visualizza 

tentativo 

* 

Legge numero 
"•/ strike e ball 
ottenuti 


Indovinato? 


► 


SI 


l tentativi a disposizione 
sono quindici 


Z Comunica 

chi ha vinto 


SM 




EN ° 


Vuoi giocare 
ancora? 


}^—KD 
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all'algoritmo illustralo qui 
a fianco, utilizzato dal 
computer per generare i 
suoi tentativi. 

Prima di tutto la macchina 
controlla se è al suo primo 
tentativo; se SI, genera un 
numero composto di 
quattro cifre casuali 
attraverso la funzione RND 
e lo memorizza insieme al 
risultato ottenuto; se NO 
per generare il nuovo 
numero utilizza l'ultimo tra 
i tentativi precedenti, 
controllando se ognuna 
delle quattro cifre di tale 
numero soddisfa la 
seguente condizione: se la 
cifra è usata sempre nella 
stessa posizione all'interno 
di un nuovo tentativo, 
confrontando quest'ultimo 
con ciascuno dei tentativi 
precedenti non si devono 
avere numeri di strike e di 
ball superiori a quelli 
realizzati con il tentativo 
corrispondente. Se la 
condizione è soddisfatta, la 
cifra considerata può essere 
usata in quella posizione 
all'interno di un nuovo 
tentativo, altrimenti deve 
essere cambiata 
(incrementata di I) e il test 
deve essere ripetuto. Se il 
numero di incrementi 
effettuati per una data cifra 
è pari a IO, deve essere 
incrementata la cifra che si 
trova a sinistra della 
posizione considerata. Se la 
cifra è quella più a sinistra, 
non esistendone altre 
prima di essa, il C-64 rileva 
la presenza di un errore 
nelle risposte fornite 
dall'umano e invia un 
messaggio tramite video, 
posizionandosi di nuovo 
all’inizio del programma 
per ricominciare il gioco. 
Dopo la verifica sulle 
quattro cifre, il tentativo è 
visualizzato e memorizzato 
insieme al risultato cui ha 
dato luogo. 


Genera tentativo C64 


Genera numero 
casuale 


SI 


4 , 

© 


< 


Primo tentativo? 


) 


NO 


A partire dall’ultimo 
tentativo 

. genera il prossimo 
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Il programma 


Il programma inizia alla 
linea 390 con il 
dimensionamento degli 
array per poi proseguire 
con la presentazione del 
titolo del gioco (linee 
410, 420). In effetti la 
presentazione si ottiene 
chiamando la routine 3880 
che prima di tutto 
inizializza le costanti, 
chiamando la routine 3610, 
e poi visualizza il titolo 
memorizzato in PG$. 

Alla linea 460 sono 
inizializzate altre variabili 
di comodo, prima di 
passare (linee 470+ 500) alla 
richiesta del nome del 
giocatore. 

Alle linee 580 + 600 il C-64 
genera il proprio 
numero segreto, e poi 
visualizza la domanda «chi 
gioca per primo, tu o il 
C-64?» (linee 620+ 660). 
Subito dopo (linee 690, 700) 
è visualizzata la maschera 
del gioco tramite la routine 
2400. 

Se a giocare per primo è il 
C-64 il programma salta 
(linea 720) all'istruzione 
1230, altrimenti passa di 
seguito alla linea 750, in 
cui controlla se l'utente ha 
vinto. 

In caso di risposta 
affermativa si va alla linea 
1180, dove è prevista la 
chiamata alla routine 3040 
che cancella le righe da 2 a 
5 del video, dove il 
programma va a scrivere 
(linee 1190, 1200) la 
proclamazione del vincitore. 
In caso di risposta 
negativa il programma 
continua alle linee 
780 + 810, dove, tramite la 
routine 2780, controlla se è 
stato superato il numero 


100 

110 

120 

140 

160 

170 

180 

190 

200 

210 

220 

221 

230 

240 

250 

268 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

538 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

795 

800 

810 

820 

830 

840 

850 


REM ***************** 

REM **STR1KE « BALL** 

REM ***************** 

REM : VARIABILI UTILIZZATE 

REM TUO MEMORIZZA TENTATIVI E RISULTATI DEL GIOCATORE 

REM TCO : MEMORIZZA TENTATIVI E RISULTATI DEL C64 

REM TU NUMERO DI TENTATIVI DEL GIOCATORE 

REM TC : NUMERO DI TENTATIVI DEL C64 

REM S : NUMERO DI STRINE 

REM B : NUMERO DI BALL 

REM FI : SE =1 RLLORA UNO DEI DUE GIOCATORI 

REM ;HA INDOVINATO IL NUMERO DELL'ALTRO 

REM F2 ; SE =1 RLLORA IL TENTATIVO C64 E' UNA SOLUZIONE ACCETTABILE 

REM N20 ^CONTIENE IL TENTATIVO DI C64 0 DEL GIOCATORE 

REM NIO : CONTIENE IL NUMERO CON CUI CONFRONTARE NIC) 

REM N •NUMERO DI CIFRE DI N2C) DA CONFRONTARE CON NIC) 

REM NCC) : NUMERO SEGRETO C64 

REM VU : NUMERO DI PARTITE VINTE DAL GIOCATORE 

REM VC : NUMERO DI PARTITE VINTE DAL C64 

REM PP •NUMERO DI PARTITE PAREGGIATE 

REM CCC) : INCREMENTI SUBITI DALLA CIFRA N-ESIMA DURANTE IL BACK-TRACICINO 

REM PG* : NOME DEL PROGRAMMA 

REM I,J,II,J1: VARIABILI DI CICLO 

REM NO* : NQME DEL GIOCATORE 

REM S*/K : VARIABILI DI COMODO 

REM R : RIGA DI STRMPA 

REM DIMENSIONO LE MATRICI 

DIM TUC15,5),TCC15-5),N2C3)-N1C3),NCC3),CCC3) 

REM PRESENTAZIONE NOME PROGRAMMA 
PG*="S TRIKE & BALL" 

GOSUB 3880 

REM CARATTERI IN NERO 
PRINT "3" 

REM INIZIRLIZZO IL NUMERO DI PARTITE VINTE DRLL'UMANO/ DAL C64 E PAREGGIATE 
VU=0 : VC=0•PP=0 

PRINT "B3UAL E' IL TUO NOME ? ",:ZL=17:G0SUB 3180 
IF IN*="" TKEN IN*="UMANO":PRINT IN*; 

PRINT 

NO*=IN* 

FOR 1=1 TO 500 ; NEXT 1 
REM ORA INIZIA IL GIOCO 
REM FLAG INDOVINATO =0 
P1 X 0•K*0 

REM TENTATIVI UMANO E TENTATIVI C64 =0 
TU=0 : TC=0 

REM GENERO IL NUMERO DEL C64 

FOR 1=0 TO 3 

NCCI)*INTCRNDC0)*10) 

NEXT I 

REM CHI E' IL PRIMO A GIOCARE ? 

PRINT ”.THI GIOCA PER PRIMO," 

PRINT "OTRI 0 IL C64 ? ZL=3:GOSUB 3180 
IF IN*=”" THEN IN*="C64" : PRINT IN*; 

PRINT 

S»=IN* 

FOR 1=1 TO 500 ; NEXT I 

REM VISUALrZZCT LFr MASCHERA DI GIOCO 

PRINT "3“ 

GOSUB 2400 

REM CONTROLLO CHI GIOCA PER PRIMO 

IF S*="C64" THEN GOTO 1230 

REM IL PRIMO A OIOCARE E' L'UMRNO 

REM SE IL FLAG FI E' 1 ALLORA HR VINTO L'UMANO 

IF FI THEN GOTO 1180 

REM LEGGO TENTATIVO DELL'UMANO 

REM MI POSIZIONO SULLA RIGA OPPORTUNA 

R=TU : GOSUB 2780 

IF K=1 THEN GOTO 540 

PRINT TABC13); 

ZL=4 GOSUB 3180 

REM MEMORIZZO IL NUMERO LETTO E CALCOLO STRINE E BALL 
FOR 1=0 TO 3 

N2CI)=VHLCMID*CIN»,1+1,1)) 

TUCTU,I)=N2CI) 
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massimo di tentativi 
disponibili. Se ciò non è 
successo legge il tentativo 
dell'utente con la routine 
3180, quindi memorizza 
il numero letto e calcola il 
numero di strike e di ball 
alle linee 830+920, 
chiamando la routine 1680. 
Il risultato è visualizzato 
alla linea 940, chiamando 
la routine 2880. 

Dalla linea 990 alla 1200 c'è 
una serie di istruzioni 
necessarie al C-64 per 
sapere se l’utente ha vinto 
o se c'è stato un pareggio. 
Andando oltre troviamo la 
parte del programma 
dedicata ai tentativi del 
computer (linee 1230+1630), 
che ripete ciò che si è fatto 
per l’utente con in più 
l’algoritmo di back-lracking 
(che genera il tentativo del 
C-64). Quest’ultimo è 
contenuto nella routine 
1860, richiamata alla linea 
1250. 

Terminato questo passo il 
programma salia alla linea 
1080, dove è inserita 
l'istruzione che visualizza 
la domanda «vuoi giocare 
ancora?». Se la risposta è S 
il computer si posiziona 
all’inizio del programma, se 
la risposta è N il 
programma termina, 
ripristinando il colore del 
video e del cursore. 


860 N1CI>«NC<I> 

870 NEXT I 

880 REM CALCOLO STRIKE E BALL 

890 N=3 : GQSUB 1680 

900 REM MEMORIZZO STRIKE E BALL 

910 TUITU, 4>=S 

920 TUCTU,5)=B 

930 REM VISUALIZZO RISULTATO 
940 R=TU : GOSUB 2880 
960 REM INCREMENTO TENTATIVI UMANO 
970 TU=TU+i 

980 REM SE STRIKE O 4 TOCCA AL C64 
990 IF S<>4 THEN GOTO 1230 

1000 REM L'UMANO HA INDOVINATO, SE Fl = l ALLORA ANCHE IL C64 

1010 REM AVEVA INDOVINATO E QUINDI E' UN PAREGGIO 

1020 IF F1=0 THEN GOTO 1150 

1030 REM E' UN PAREGGIO 

1040 PP-PP+1 

1050 REM CANCELLO DALLA LINEA 2 RLLR LINEA 5 
1060 GOSUB 3040 

1070 PRINT "HEBABBIAMO PAREGGIATO." 

1080 PRINT "JWUQI GIOCARE ANCORA ? CS7N3 ■ 

1090 OET S*:IF S*="" THEN DOTO 1090 
1100 IF S*="S" THEN GOTO 540 

1110 POKE 53283,14 -POKE 53281,6: PRINT "113" : END 

1130 REM L'UMANO HA INDOVINATO. SE AL 064 MANCA UN TENTATIVO, LO FA 

1140 REM IN CASO CONTRARIO HA VINTO L'UMANO 

1150 IF TU>TC THEN F1=1:G0T0 1250 

1168 REM L'UMANO HA VINTO 

1170 REM CANCELLO LINEE 2..5 

1180 GOSUB 3040 

1190 PRINT "WaiBRRVO, HAI VINTO." 

1200 VU=VU+1 
1210 DOTO 1080 

1220 REM TENTATIVO DEL C64.SE Fl-1 HR VINTO IL C64 

1230 IF FI THEN GOTO 1610 

1240 REM GENERO TENTATIVO C64 

1250 GOSUB 1860 

1255 IF K=1 GOTO 540 

1260 REM SALVO IL TENTATIVO IN TC<.,.> 

1270 FOR 1=0 TO 3 
1280 TC<TC,I)=N2<I> 

1290 NEXT I 

1300 REM VISUALIZZO TENTATIVO 

1310 R=TC 

1320 OOSUB 2780 

1325 IF K=1 THEN GOTO 540 

1330 GOSUB 2960 

1340 REM LEGGO STRIKE E BALL 

1350 POKE 214,8+R-l PRINT 

1360 PRINT TABC30); 

1370 ZL=l: GOSUB 3180 

1380 IF IN*»"" THEN GOTO 1350 

1390 IF 1N*<"0" OR IN*>"4" THEN PRINT “Il II"; : GOTO 1370 
1400 TCaC,4)=VRLUN*> 

1410 S=VAL<IN*> 

1420 PRINT SPC<1>; 

1430 GOSUB 3180 

1440 IF IN*="" THEN GOTO 1350 

1450 IF IN$<"0" OR IN*>“4" THEN PRINT "Il II", :QOTO 1430 
1460 TC(TC,5)“VHLUN$) 

1470 B=VALCIN*> 

1480 IF S+B>4 THEN GOTO 1350 
1490 REM INCREMENTO TENTATIVI C64 
1500 TC=TC+1 

1510 REM CONTROLLO SE SONO 4 STRIKE 
1520 IF S04 THEN GOTO 750 
1530 REM SONO 4 STRIKE. 

1540 REM CONTROLLO SE ANCHE L'UMANO AVEVA INDOVINATO 
1550 IF FI THEN GOTO 1040 

1560 REM C64 HR INDOVINATO. SE RLL'UMRNO MANCA UN TENTATIVO, LO FA 
1570 REM IN CRSO CONTRARIO HA VINTO IL C64 
1580 IF TC>TU THEN Fl=l GOTO 780 
1590 REM HA VINTO C64. 


73 




1600 REM CANCELLO LE LINEE 2..5 
1610 GOSUB 3040 

1620 print "munì spiale, hai perso." 

1630 VC=VC+1 

1631 PRINT'XMJOI VEDERE IL MIO NUMERO? ISXNJ" 

1632 GETSf : IFS$="" THEN GOTO 1632 

1633 IFS*="N''THEN PRINT'TI'' : GOTO 1650 

1635 PRINT'Tl" : PRINT"IL MIO NUMERO ERR: ", 'POR 1=0 TO 3 

163? PRINT NC<I>J m IT; NEXT I PRINT"»»" 

1640 REM CHIEDO SE SI VUOL GIOCARE ANCORA 
1650 GOTO 1080 

1660 REM TERMINA IL PROGRAMMA PRINCIPALE. INIZIANO LE SUBROUTINES. 

1670 REM ROUTINE : CALCOLA STRIKE E BALL 
1680 S=0:B=0 

1690 POR 1=0 TO 3 : EL(I )=0 : NEXT I 
1700 FOR 1=0 TO N 

1710 IF N2CI)=N1CI) THEN S=S+1 : ELCI>=1 
1720 NEXT I 

1730 REM HO CALCOLATO OLI STRIKE 
1740 REM CALCOLO I BALL 
1750 FOR 1=0 TO N 

1760 IF N2<I)=N1CI> THEN GOTO 1810 
1770 J=0 

1780 IF N2CI)=N1CJ> THEN IF ELCJ>=0 THEN B=B+1 : ELC J>=1 : GOTO 1810 
1790 J=J+1 

1800 IF J<4 THEN GOTO 1780 
1810 NEXT I 

1820 REM HO GLI STRIKE ED I BALL CHE LE N+l CIFRE PIU" A SINISTRA DI N2C.) 
1830 REM FANNO SULLE 4 CIFRE DI NIC.) 

1340 RETURN 

1850 REM ROUTINE GENERA IL TENTATIVO DI C64 
1860 IF TC>8 THEN GOTO 1930 

1870 REM E' IL PRIMO TENTATIVO, GENERO IL NUMERO E LO ,METTO IN N2C.) 

1880 FOR 1=0 TO 3 

1890 N2(I)=1NTCRND(0)*10) 

1300 l«XT I 
1910 RETURN 

1920 REM NON E' IL PRIMO TENTATIVO. PARTE IL BACK TRACHINO 
1930 FOR 1=0 TO 3 
1940 N2CI)=TCCTC-1,I) 

1950 NEXT I 

1960 REM AZZERO IL VETTORE CCC.) 

1970 FOR 1=0 TO 3 
1980 CCCI>=0 
1990 NEXT I 

2000 REM ORR IN N2C.) C'E IL NUMERO DAL QUALE GENERARE LA PROSSIMA PROVA 
2010 N=0 

2020 REM CONTROLLO SE LE PRIME N CIFRE DI N2 SODDISFANO I RISULTATI PREC. 

2030 GOSUB 2240 

2040 IF F2“0 THEN GOTO 2100 

2050 REM PROSEGUO QUESTR OPERAZIONE PER 4 VOLTE 
2060 N=N+1 ; IF NC4 THEN GOTO 2030 

2070 REM LA SOLUZIONE E' ACCETTABILE, TERMINA LA ROUTINE. 

2080 RETURN 

2090 REM IL TENTATIVO NON E' SOLUZIONE ACCETTABILE, CAMBIO CIFRA N-ESIMA 
2100 N2CN)=N2CN)+1 : IF N2CN>=10 THEN N2CN)=0 
2110 CCCN)»CCCN)+1 

2120 REM CONTROLLO SE LA CIFRA N-ESIMA E" STATA CAMBIATA 10 VOLTE 
2130 IF CCCNX10 THEN GOTO 2030 
2140 REM E' STATA CAMBIRTA 10 VOLTE 
2150 CCCN)=0 

2160 IF N>0 THEN N=N-1 'GOTO 2100 

2170 REM C'E" UN ERRORE NELLE RISPOSTE DELL'UMANO 

2180 POKE 214,21 PRINT 

2190 PRINT "3RTTENZI0NE, HHI COMMESSO UN ERRORE." 

2200 PRINT "BRICOMINCIAMO TUTTO DALL'INIZIO." 

2210 FORI=1TO2000:NEXT I 
2220 K=1• RETURN 

2230 REM R0UTINE CONTROLLA SE LA SOLUZIONE E' ACCETTABILE 


2240 F2=0 

2250 FOR I1=TC-1 TO 0 STEP -1 

2260 REM COPIO TENTATIVO I-ESIMO IN NIC.) 

2270 FOR J1«0 TO 3 

2280 N1CJ1>=TCCI1,J1XNEXT J1 
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2300 REM CRLCOLO STRIKE E BRLL 
2310 GOSUB 1680 

2320 REM CONTROLLO STRIKE E BRLL 

2330 IF S>TC<I1,4> THEN RETURN 

2340 IF B>TC(11*5) THEN RETURN 

2350 REM LR SOLUZIONE SEMBRA RCCETTRBILE 

2360 NEXT I1 : F2=l 

2380 RETURN 

2390 REM ROUTINE VISUALIZZA LR MRSCHERR DI GIOCO 
2400 PRINT "H”; 

2410 REM SCRITTA STRIKE & BRLL 

2420 PRINT TRBC8>;"S5 TRIKE « BRLL" 

2430 REM PARTITE VINTE E PRREGGIRTE 

2440 PRINT "M"; "PAREGGIATE";TABI 14),'LEFT$<NO$,10);TAB<26);"C64" 

2450 PRINT "a";TRBC4);PP;TRB<16);VU;TRB(27)/'VC 

2460 REM LINER DI SEPRRRZIONE 

2470 FOR 1=1 TO 40 

2480 PRINT • NEXT I 

2500 REM SCRITTA "S B" 

2510 PRINT "n";TRBI59);“S B";TAB<70>;"S B" 

2520 REM ORfi VISURLIZ20 I TENTRTIVI FRTTI ED I RISULTATI 
2530 REM PR1MR SCRIVO LR PRROLR 'PROVA N.#:' 

2540 R=1 

2550 IF P>TU AND R>TC THEN GOTO 2620 
2560 REM SCRIVO 'PROVA N.#:' 

2570 GOSUB 2780 
2580 R=R+i 
2590 GOTO 2550 

2600 REM ORA SCRIVO I RISULTRTI DEI DUE GIOCATORI 
2610 REM RISULTATI UMANO 
2620 R=1 

2630 IF R>TU THEN GOTO 2680 
2640 GOSUB 2880 
2650 R=R+1 
2660 GOTO 2630 

2670 REM RISULTATI COMMODORE 
2680 R=1 

2690 IF R>TC THEN GOTO 2740 

2700 GOSUB 2960 

2710 R=R+1 

2720 GOTO 2690 

2730 REM HO TERMINATO 

2740 RETURN 

2750 REM ROUTINE'VISUALIZZR LA SCRITTA 'PROVA N.#:' RLLR RIGA R-ESIMR 
2760 REM MI POSIZIONO ALLA RIGA RELATIVA 
2770 REM LA PRIMA RIGA E' LA 8 
2780 IF TC<=15 THEN GOTO 2840 

2790 REM IL NUMERO MASSIMO DI TENTATIVI E' STATO SUPERATO. STOP 
2800 PRINT ’TXflL NUMERO MASSIMO DI TENTATIVI E' STATO" 

2810 PRINT “«SUPERATO. RICOMINCIAMO DALL' INIZIO" 

2820 FOR 1=1 TO 2000:NEXT I 

2830 K=l:RETURN 

2840 POKE 214,8+R-l PRINT 

2850 PRINT "PROVA N."jRIGHTf<STR$<R+1>,2);" : , 

2860 RETURN 

2870 REM ROUTINE;VISUALIZZA LA PROVA R-ESIMA DELL'UMANO ED IL RISULTATO 
2880 POKE 214,8+R-l PRINT 
2890 PRINT TAB<13>, 

2900 FOR 1=0 TO 3 

2910 PRINT RIGHT*CSTR$<TU<R,I>>.1>; 

2920 NEXT I 

2930 PRINT " “;STR*<TU(R,4));STR*(TU<R,5)) 

2940 RETURN 

2950 REM ROUTINE:VISUALIZZA LA PROVA R-ESIMA DEL C64 
2960 POKE 214,8+R-l:PRINT 
2970 PRINT THB<24>; 

2980 FOR 1=0 TO 3 

2990 PRINT RIGHTt(STRÌ<TC(R,I)),1)1 
3000 NEXT I 
3020 RETURN 

3030 REM ROUTINE: CANCELLO LE LINEE 2..5 DEL VIDEO 
3035 REM 38 SPAZI 
3040 PRINT "589" 

3050 PRINT " 
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3060 PRINT “ 

3070 PRINT " 

3080 RETURN 

3100 REM ROUTINE CESTISCE L'INPUT DI UNA STRINGA ALFANUMERICA 
3110 REM LE VARIABILI UTILIZZATE S0N0Z6,Z7,28,Z9,Z8*,IN* 

3120 REM IN INGRESSO VUOLE IL VALORE ZL CHE E' LA LUNGHEZZA MASSIMA 
3130 REM DELLA STRINGA DA LEGGERE 

3140 REM IN USCITA DA' LA STRINGA LETTR IN IN* E LA SUA LUNGHEZZA IN Z9 

3160 REM CANCELLO LA ZONA DI SCHERMO IN CUI VERRÀ' DIGITATA LA STRINGA 

3180 FOR Z8*l TO ZL: PRINT " ";:NEXT Z8 

3190 FOR Z8=l TO ZL: PRINT "11", NEXT Z8 

3200 IN**"":Z7=TI 

3220 REM LEGGO UN CARATTERE 

3240 GET Z8*:IF Z8*0“" THEN GOTO 3340 

3260 REM ACCENSIONE E SPEGNIMENTO DEL CURSORE 

3280 IF Z?<TI AND N0TCZ61 THEN PRINT "MI"; Z6=N0T(Z6> : Z?=TI+15 

3290 IF Z7CTI AND Z6 THEN PRINT " II", : Z6=N0T<Z6> : Z7=TI + 15 

3300 GOTO 3240 

3320 REM E' STATO DIGITATO UN CARATTERE 
3340 Z8=ASC<Z8*> Z9=LEN<IN*> 

3360 REM SE NON E' UN CARATTERE ALFANUMERICO, DEVE ESSERE UN RETURN 0 DELETE 

3380 IF NOT<<Z8>47 AND Z8C58) OR <Z8>64 AND Z8<91>> THEN GOTO 3500 

3400 REM CONTROLLO CHE NON SIA STATA SUPERATA LA LUNGHEZZA MASSIMA 

3420 IF Z9=ZL THEN GOTO 3240 

3440 REM LO AGGIUNGO ALLA STRINGA IN* 

3460 IN*=IN*+Z8*:PRINT Z8*;:GOTO 3240 

3480 REM SE E' UN RETURN, HO TERMINATO LA LETTURA 

3500 IF Z8=13 THEN PRINT " II",:RETURN 

3520 REM SE E' DELETE, CANCELLO IN IN* E SUL VIDEO L' ULTIMO CARATTERE DIGITATO 
3540 IF Z8*20 AND Z9>0 THEN IN*=LEFTS<IN*,Z9-1) PRINT " HI", GOTO 3240 
3550 GOTO 3240 

3570 REM ROUTINE:INIZIALIZZAZIONE COSTANTI 

3590 REM CIRCUITO VIDEO 

3610 VI=53248 

3630 REM CIRCUITO SUONO 

3650 SI*54272 

3670 REM MEMORIA VIDEO 

3690 MV=1024 

3710 REM MEMORIA COLORE 

3730 MC=55296 

3750 REM COSTANTI DI USO COMUNE 
3770 ZL=9 

3790 REM INIZIALIZZAZIONE CHIP SUONO 

3810 FOR 1=0 TO 24 

3828 POKE SI+I,0 

3830 NEXT I 

3840 RETURN 

3860 REM ROUTINE:STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PG* 

3880 GOSUB 3610 
3890 POKE VI+32,15 
3900 POKE VI+33,15 

3910 print "neMw; 

3920 PRINT TAB<6>, " r - 

3930 FOR 1*1 TO 5 

3940 PRINT TRB<6>;“ I I" 

3950 NEXT I 

3960 PRINT TRBC6); " - - - 

3970 PRINT TAB<6>; " WIfflMIBtìDIGITA 5RETURN5 PER PROSEGUIRE" 

3980 PRINT 

3990 FOR 1=1 TO 5 

4000 PRINT TABC7); 

4010 FOR J=1 TO 26 
4020 PRINT ".'«a 
4030 NEXT J 
4040 PRINT 
4050 NEXT I 

4070 REM ORA SCRIVO IL TITOLO 

4090 PRINT "*W«OMm",TRBCC40-LENlPG*>V2>,":H",PG* 

4100 GET Z9* 

4110 IF 29TOCHR$<13) THEN GOTO 4100 
4120 PRINT ".18", 

4130 RETURN 






La torre di Hanoi 



In un monastero del Tibet — così racconta un’antica leggenda orientale 
— si trovano tre aste conficcate nel pavimento di una stanza: sulla pri¬ 
ma asta all’inizio del mondo erano disposti 64 dischi concentrici, in mo¬ 
do che i più piccoli stessero al di sopra dei più grandi. Dall’inizio del mon¬ 
do i monaci spostano un disco alla volta da un’asta all’altra con l’intento 
di portarli tutti su un’altra delle due aste, ma facendo sì che un disco 
più grande non sia mai posto su uno più piccolo. Secondo la leggenda 
quando i monaci termineranno il loro compito il mondo finirà. 

Per quanto ci riguarda, limiteremo l’altezza delle nostre torri ad un mas¬ 
simo di 8 dischi. Il nostro programma dovrà essere in grado di rappre¬ 
sentare sul video la pila iniziale di dischi e il movimento di un singolo 
disco da una pila all’altra, di accettare ed eseguire le nostre mosse, veri¬ 
ficandone l'esattezza, e di comunicare quando siamo riusciti a spostare 
l’intera pila di dischi, risolvendo così il problema. 


Analisi del 
problema 



La parte più complessa del programma sarà sicuramente quella che si 
occuperà della rappresentazione dei dischi, che saranno definiti come 
sprites (da cui il massimo di 8 dischi); gli sprites consentiranno di simu¬ 
lare in modo semplice lo spostamento di un disco da una pila all’altra. 
Dopo l’inizializzazione delle variabili e la stampa del titolo, il program¬ 
ma dovrà creare gli sprites necessari a rappresentare il numero di di¬ 
schi voluto. A tal fine, dovrà chiedere all’utente con quanti dischi vuole 
giocare, accettando un numero compreso tra 2 e 8. Per semplicità, stabi¬ 
liamo di creare comunque sempre tutti e 8 gli sprites, fissandone la for¬ 
ma, le dimensioni, il colore e la posizione iniziale sul video. Non tutti gli 
sprites saranno però attivati, cioè visibili: saranno attivati solo gli N di¬ 
schi più grandi, cioè quelli che si trovano più in basso nella pila (N è il 
numero di dischi con cui l’utente vorrà giocare). 

Ricordiamo che per fissare le caratteristiche degli sprites si può opera¬ 
re nel modo seguente: 

■ la forma di ogni sprite è contenuta in un blocco di memoria di 64 by- 
tes consecutivi; l’indirizzo di partenza del blocco deve essere inserito 
in una delle locazioni 2040 -s- 2047 

■ lo sprite può essere espanso in orizzontale o in verticale ponendo pari 
ad 1 il bit corrispondente ad esso nei registri 53277 o 53271 

■ il codice del colore deve essere inserito in uno dei registri 53287-^53294 

■ le coordinate degli sprites sul video debbono essere inserite nelle cop¬ 
pie di registri poste dalla locazione 53248 alla 53263. 



Dopo aver definito gli 8 sprites e attivato quelli necessari, il programma 
chiederà all’utente da quale pila a quale pila vuole spostare un disco; do¬ 
po aver verificato se la mossa è corretta, dovrà rappresentare il movi¬ 
mento del disco sul video, operando sui valori contenuti nella coppia di 
registri di posizionamento dello sprite corrispondente. Dovrà inoltre te¬ 
nere conto del numero delle mosse effettuate, e controllare se il rompi¬ 
capo è stato risolto, ovvero se l'intera pila è stata spostata sulla seconda 
ó sulla terza asta. Se ciò è avvenuto, chiederà se si vuole effettuare una 
nuova partita, altrimenti terminerà l’esecuzione. 

Il programma dovrà offrire infine sia la possibilità di terminare il gioco 
in un qualunque istante (ad esempio premendo il tasto F come risposta 
alla richiesta di una nuova mossa), sia la comunicazione, al termine di 
una partita, del numero di mosse effettuate e del numero minimo di mosse 
necessarie, dato dalla formula 

2 TNumero dei dischi - 1. 
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Diagrammi 
di flusso 


Il diagramma presentato è 
abbastanza semplice nella 
sua struttura, ed è più utile 
descrivere in dettaglio una 
sua parte che sarà 
utilizzata anche nell'ambito 
di altri programmi 
considerati in questo 
volume. 



Inizlallzzazione 

variabili 


* 


Inizlallzzazione 

sprites 


* 

/ Disegna piano e 
attiva sprites 

4 ^ 


Numero 
mosse = 0 


— 

/ Chiede mossa 
da eseguire e 
legge risposta 

. 4 ^ 


È il carattere F? 


NO ^ 


Sposta primo disco 
dall’asta di 
partenza 

* 







È stata riformata 
nuova pila 
nell'asta 2 o 3? 

4 si 


Nuova 

partita? 


^ NO 


END 
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Il blocco in questione, 
riportato qui a fianco, è 
quello relativo alla 
richiesta di una mossa, che 
è stato realizzato come 
blocco di lettura di una 
sequenza di caratteri lunga 
al massimo ZL in una 
variabile di tipo stringa 
IN$; al termine della 
lettura la variabile Z9 
contiene il numero dei 
caratteri letti. La routine 
accetta un carattere alla 
volta. Se il carattere è 
alfabetico o numerico, è 
visualizzato ed inserito in 
fondo alla stringa; in caso 
contrario, se si tratta di un 
RETURN la lettura della 
stringa cessa, se è un 
DELETE è cancellato da 
IN$ e dal video l'ultimo 
carattere letto e si torna 
(come nel caso in cui il 
carattere non è né 
RETURN né DELETE) a 
leggere un nuovo carattere. 
In IN$ sono inseriti un 
massimo di ZL caratteri; 
eventuali caratteri 
successivi sono visualizzati 
sul monitor ma non inseriti 
nella stringa. 


Restituisce la stringa 
letta al programma 


tl<1 


È il comando 
RETURN? 


Lettura di una stringa di 
caratteri da tastiera 


um 

/ Cancellazione 
zona di lettura 
sullo schermo 


Z9 = 0 




/ Lettura di 
un carattere 




È un carattere 
alfanumerico? 


> 


NO 4" SI ^ 

N0 / È II comando \ / V\ 

DELETE? Z9 = ZL? 

SI 4* 4 , SI 


Elimina ultimo 
carattere da INS 


Inserisce 
carattere 
in INS 


Cancella ultimo 
carattere dal 
Jjw video 

-J- 


Z9 = Z9 + 1 


Z9 = Z9 -1 
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Il programma 


Le linee 200+ 290 
controllano se il 
programma, secondo 
quanto indicato 
nell'avvertenza riportata a 
pag. 37, è stato caricato a 
partire dalla locazione di 
memoria 16384. Se non è 
così è visualizzato un 
messaggio di avvertimento. 
Se tutto è a posto il 
programma ha inizio con la 
linea 570 che insieme alla 
580 provvede, chiamando la 
routine 4270 ed in sequenza 
la 4000, ad inizializzare le 
costanti e a stampare il 
titolo. 

Alle linee 620+ 700 sono 
inizializzate le variabili, 
sono dimensionati gli array 
ed è impostato il colore del 
video. Subito dopo (linea 
740), tramite la routine 
2950, sono inizializzati gli 
sprites. Guardando le 
istruzioni presenti nella 
routine 2950 possiamo 
osservare che per la 
maggior parte sono 
costituite da POKE che, 
facendo riferimento ad una 
locazione base VI = 53248, 
inseriscono determinati 
valori all’interno dei 
registri degli sprites. 

Alle linee 780+920 il 
programma chiede 
all'utente il numero dei 
dischi con cui vuole 
giocare. 

Le linee comprese dalla 960 
alla 1120 inizializzano in 
modo casuale i colori degli 
otto dischi che sono poi 
posizionati (linee 
1160+1240) sulla prima 
asta. 

Proseguendo nel 
programma, si disegna 
prima il piano su cui 
poggeranno i dischi (linee 


100 REM *************************** 

110 REM ****.*Lfi TORRE DI HANOI***** 

120 REM *************************** 

140 REM ATTENZIONE : PRIMA DI MANDARE IN ESECUZIONE QUESTO PROGRAMMA OCCORRE 
150 REM IMPOSTARE I SEGUENTI COMANDI: 

160 REM POKE 44,64 
170 REM POKE 16384,0 

180 REM CHE SERVONO A SPOSTARE LA BASE DEL PROGRAMMA BASIC ALLA LOCAZIONE 16384 

190 REM CONTROLLO CHE QUANTO SCRITTO SIA STATO ESEGUITO 

200 IF PEEK<44>«64 THEN GOTO 570 

210 REM QUANTO DETTO NON E' AVVENUTO 

220 PRINT "riIMr 

230 PRINT "ATTENZIONE, HAI DIMENTICATO" 

240 PRINT "UDÌ IMMETTERE I SEGUENTI COMANDI:" 

250 PRINT "JflaSD POKE 44,64" 

260 PRINT ")US2) POKE 16384,0" 

270 PRINT "JOTPRIMA DI IMMETTERLI RICORDA" 

280 PRINT "UDÌ SALVARE IL PROGRAMMA, SE QUESTO" 

290 PRINT "JNON E" GIÀ" PRESENTE SU NASTRO," 

300 PRINT "HE POI DI RICARICARLO" : END 
310 REM VARIABILI UTILIZZATE 


320 REM PG* 
330 REM I, J, Il 
340 REM SI 
350 REM CE 
360 REM DE 
370 REM PO 
380 REM N 
390 REM T 
400 REM F 
410 REM DN* 
420 REM MO 
430 REM TM 
440 REM PR* 
450 REM DS 
460 REM SX,SY 
470 REM PP 
480 REM PA 
490 REM SP 
500 REM CLO 
510 REM ALO 
520 REM POO 
530 REM PO 


NOME DEL PROGRAMMA 
CONTATORI DI CICLO 

BYTE DI SINISTRA DI UNA RIGA CHE COMPONE UNA FIGURA VELOCE 
: BYTE CENTRALE DI UNA RIGA CHE COMPONE UNA FIGURA VELOCE 
BYTE DI DESTRA DI UNA RIGA CHE COMPONE UNA FIGURA VELOCE 
LOCAZIONE NELLA QUALE E’ MEMORIZZATA LA FIGURA VELOCE 
: NUMERO DI DISCHI CON I QUALI SI GIOCR 
PILA DI PARTENZA PER UNO SPOSTAMENTO 
PILA DI ARRIVO PER UNO SPOSTAMENTO 
SE STAMPATO, POSIZIONA IL CURSORE ALLA 21-MA RIGA 
NUMERO DI MOSSE FATTE 
VARIABILE DI COMODO 

: MEMORIZZA LE DOMANDE CHE VENGONO FATTE AL GIOCATORE 
: NUMERO DEL DISCO DA SPOSTARE 
REGISTRI SPOSTAMENTO FIGURE VELOCI 
: ASCISSA DI PARTENZA PER UN DISCO 
ASCISSA DI ARRIVO PER UN DISCO 

INDICA SE LO SPOSTAMENTO E' VERSO DESTRA 0 VERSO SINISTRA 
CODICI DI NEWE PER I DISCHI 
OTTO POSSIBILI ORDINATE DI UN DISCO 
ASCISSE CELLE TRE PILE 

NUMERO DI DISCHI E IDENTIFICATORI DEI DISCHI DI OGNI PILA 
550 REM VISUALIZZO IL NOME DEL PROGRAMMA ED INIZIALIZZO LE COSTANTI COMMODORE 
570 PG*="LA TORRE DI HANOI" 

580 GOSUB 4270 

600 REM INIZIALIZZO LA LUNGHEZZA MASSIMA DELLE STRINGHE IN INGRESSO 
620 ZL=1 

640 REM DIMENSIONO VETTORI E MATRICI 
660 DIM CL<8>,ALC8i>,P0<3>,P<3,8> 

680 REM SFONDO NERO 

700 POKE VI+32,0 : POKE VI+33.0 

720 REM INIZIALIZZO LE FIGURE VELOCI 

740 GOSUB 2950 

760 REM INIZIA IL PROGRAMMA 

780 PRINT "IT, 

790 PRINT PRINT "USUANTI DISCHI (DA 2 fl 8) Vi 

810 REM LEGGO UNA STRINGA ALFANUMERICA LUNGA ZL DALLA TASTIERA 

830 GOSUB 3570:PRINT 

840 IF IN*=”“ THEN PRINT "NE USERAI 3":IN*="3“ 

860 REM RITARDO 

880 FOR 1 = 1 TO 500:NEXT I 

890 IF IN$>="0" AND IN*<="9" THEN 910 

900 PRINT "NON USARE "iIN*i" PER FAVORE.“:GOTO 790 

910 N=VAL(IN$) : IF N>8 THEN PRINT"NON POSSONO ESSERE PIU" DI 8.":GOTO 790 
920 IF N<2 THEN PRINT"NON ESSERE RIDICOLO!":GOTO 790 

940 REM METTO NEL VETTORE CL<8> OTTO NUMERI DIVERSI COMPRESI TRA 1 E 15 

960 FOR 1=1 TO 8 

970 CL(I)=0 

980 NEXT I 

990 FOR I«1 TO 8 

1000 T=INTCRND<0>*15+1> 

1010 J=1 

1020 IF CL(J>=T THEN 1000 
1030 J=J+1 

1040 IF J<I THEN 1020 
1050 OLII)=T 
1060 NEXT I 

1080 REM ORA INIZIALIZZO I COLORI DELLE FIGURE VELOCI 

1100 FOR 1=1 TO 8 

1110 POKE VI+38+I,CL<I> 

1120 NEXT I 

1140 REM STAMPANDO DN*, POSIZIONO IL CURSORE ALL'INIZIO DELLA 21-MA RIGA 

1180 REM AZZERO LA MATRICE P<3,8> 

1200 FOR 1 = 1 TO 3 : FOR J=0 TO 8 :P( I, Ji>=0 : NEXT J, I 
1220 REM GLI N DISCHI SONO TUTTI SULLA PRIMA PILA 
1240 P<1,0>=N 

1260 REM DISEGNO IL PIANO SU CUI POGGERANNO I DISCHI 
1280 PRINT"U"iDN*, "11" 
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1280 4 - 1330), quindi si 
attivano gli sprites 
rappresentanti i dischi con 
cui si vuole giocare. 
L'attivazione degli sprites è 
fatta alle linee 1380+1440. 
La linea 1580, chiamando 
la routine 2510, cancella le 
quattro righe più in alto 
del video, dove andranno 
visualizzate le domande 
poste al giocatore e le 
mosse che si vogliono 
effettuare (linee 
1620+1740). 

Le linee 1790, 1800 
calcolano la posizione del 
disco da spostare mentre le 
linee 1840+2010 effettuano 
Io spostamento. Come si 
può vedere lo spostamento 
è diviso in tre blocchi: nel 
primo è realizzato lo 
spostamento verso l'alto 
(1840+1860), nel secondo 
quello orizzontale 
(1900+1950) e nel terzo 
quello verso il basso 
(1990+2010). 

Tutti gli spostamenti 
utilizzano istruzioni 
POKE agenti sui registri 
che controllano la 
posizione orizzontale 
(POKE SX, I) e quella 
verticale (POKE SY, I). 

Le linee 2050+ 2110 
memorizzano la mossa 
appena fatta. Per finire, le 
linee 2150+ 2280 
controllano se il gioco è 
terminato, visualizzano 
alcune informazioni, come 
per esempio il numero di 
mosse, e controllano se si 
vuole giocare ancora. In 
caso affermativo il 
programma salta alla linea 
620, altrimenti, tramite la 
routine 4540, disattiva gli 
sprites e ripristina il colore 
del video. 


1290 POR 1 = 1 ro 5 PRINT 

1300 PRINT"a III NEXT I 

U10 print dn*; "«Minima .s— Sfinii attlni wmiiis'9 —arsir; 

1320 PRINT "liMtMKia Sfilili #>2*1 Pillila I—y STI" - 

1330 PRINT "*llll*>na«—;4Sfilili 3*3" Pillila ST”, 

1350 REM FRCCI0 APPARIRE GLI N DISCHI RICHIESTI CHE SONO STATI POSIZIONATI 
1360 REM BHLLH ROUTINE DI INIZIRLIZZAZIONE FIGURE VELOCI 
1380 POR 1=1 TO N 

1390 POKE VI+21.2TCI-1) OR PEEKCV1+211 

1410 REM LA PILA 1, AL POSTO I-ESIMO, HA IL DISCO I-ESIMO 
1430 P<1.I>=I 
1440 NEXT I 

1460 REM METTO A ZERO IL NUMERO DI MOSSE FATTE 
1480 M0=0 

1500 REM INIZIA IL CICLO DI GIOCO 
1510 REM RITARDO DI UN SECONDO 
1530 TM=TI+60 
1540 IF TKTM THEN 1540 

1560 REM CRNCELLO LE PRIME QUATTRO LINEE DEL VIDEO 
1580 GOSUB 2510 

1600 REM RICHIEDO LA PILA DI ORIGINE E QUELLA DI DESTINAZIONE 
1620 PRINT "IT" 

1630 PR*="SDA QUALE PILA ? “ 

1650 REM LEGGO UN NUMERO DA UNO A TRE 
1670 GOSUB 2330 : IF IN*="" THEN GOTO 1580 
1680 F=VAL(1N$) 

1690 IF PCF,01=0 THEN PRINT "«QUESTA PILA E' VUOTA." GOTO 1530 
1700 PR*=“A QUALE PILA ? ";GOSUB 2330:IF INI»”" THEN 1530 
1710 T~VRL<IN*> 

1720 IF F=T THEN PRINT "«NON E' POSSIBILE.GOTO 1530 
1730 IF PCT, 01=0 THEN 1790 

1740 IF P(F,P(F,0)XP(T,F\T,0» THEN PRINT "SMOSSA NON VAL IVA. " ‘GOTO 1530 

1760 REM SPOSTO UN DISCO DALLA PILA F ALLA PILA T 

1770 REM CALCOLO QUALE DISCO DEVO SPOSTARE 

1790 DS=PCF,PCF,011-1 

1800 SX=VI+2*DS ; SV=SX+1 

1820 REM SPOSTO IL DISCO IN VERTICALE VERSO L ALTO 
1340 FOR I=ALCPCF,01-11 TO 100 STEP -1 
1850 POKE SV,I 
1860 NEXT I 

1880 REM ORA LO SPOSTO IN ORIZZONTALE 
1900 PP=P0CF1 : PA=P0CT1 
1910 SP=1 

1920 IF FOT THEN SP=-1 
1930 FOR I=PP TO PA STEP SP 
1940 POKE SX.I 
1950 NEXT I 

1970 REM ORA LO ABBASSO FINO AL PRIMO POSTO LIBERO 
1990 FOR 1=100 TO ALCPCT,011 
2060 POKE SV.I 
2010 NEXT I 

2030 REM MEMORIZZO LO SPOSTAMENTO 
2050 P<T,01=P<T,0H-1 
2060 PCI,PCT,011=PCF,PCF,0>1 
2070 PCF,@)=PCF.01-1 

2090 REM INCREMENTO IL NUMERO DI MOSSE FATTE 
2110 MQ=MO+1 

2130 REM CONTROLLO SE E' STATA FORMATA UNA PILA DI N DISCHI Al POSTI 2 E 3 
2150 IF PC2.01ON AND PC3.01ON THEN 1330 
2160 GOSUB 2510 

2170 PRINT "«9 . — i —ii— " 

2180 PRINT “ ai HAI VINTO MS” 

2190 PRINT " TI i ■ " 

2200 PRINT "OTHAI IMPIEGATO".MO," MOSSE"," PER VINCERE." 

2210 T=2W-1 PRINT "«LA PIU' CORTA SOLUZIONE " 

2220 PRINT "RICHIEDE",T;"MOSSE." 

2230 PRINT "JflMGIOCHI ANCORA ? Cs/N] ■GOSUB 3578 FRINÌ "3” 

2240 IF INf="N" THEN GOSUB 4540 ; END 

2260 REM RIPARTO CON IL PROGRAMMA 

2280 RESTORECLR GOSUB 4000 POKE VI+21,0 GOTO 620 

2300 REM ROUTINE:LEGGE UN NUMERO DALLA TASTIERA E CONTROLLA CHE SIA COMPRESO 
2310 REM TRA UNO E TRE. SE VIENE DIGITATO 'F' IL PROGRAMMA TERMINA 
2330 PRINT PR$, 

2340 GOSUB 3570 PRINT IF IN*»"” THEN RETURN 
2350 IF lNi="F" THEN GOSUB 4540 END 
2360 IF INT>="1" AND IN$<="3" THEN RETURN 
2370 PRINT "QUESTA PILA NON C'E'." 

2390 REM RITARDO 

2410 POR 1=1 TO 500 NEXT 1 

2430 REM FACCIO APPARIRE DI NUOVO LA DOMANDA 

2450 PRIMI "T 

2460 PRINT ":TT",PR*, " ", 

2478 GOTO 2340 

2430 REM ROUTINE CANCELLA LE PRIME QUATTRO LINEE DEL VIDEO 
2510 PRINT "SI"; 

2520 FOR 1=1 TO 4 PRINT "I "NEXT I 

2530 PRINT "SI", 

2340 RETURN 

2560 REM ROUTINE MEMORIZZA ON DISCO CON DIMENSIONI DATE DA Si, CE,DE 
2580 FOR 11=0 TO 20 
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2590 POKE PU+11,0 
2600 NEXT II 

2610 FOR 11=21 IO 39 STEP 3 

2620 POKE PÙ+II.SI 

2630 POKE PO+1 + : 1,CE 

2640 POKE P0+2+II.UE 

2650 NEXT II 

2660 PUR 11=42 TO 62 

26re POKE PO+11,0 

26Su next ii 

2630 RETURN 

2710 REM DIMENSIONI E LOCAZIONI DI PARTENZA DEI DISCHI 

2730 DATA 1,255,128,2048 

2740 DATA 3,255,132,2112 

2750 DATA 7.255,224,2176 

2760 DATA 15,255,240,2240 

2770 DATA 31,255,248,2304 

2780 DATA 63,255,252,2368 

2790 DATA 127,255,254,2432 

2800 DATA 255,255,255.2496 

2820 REM POSIZIONI VERTICALI DEI DISCHI DI UNA FILA 

2840 DATA 146,153,160,167.174,181,188,195 

2860 REM ROUTINE GESTIONE DI 8 FIGURE VELOCI 

2870 REM MEMORIZZATE DA 2048 A 2559 

2830 REM CARICO IH 2040 -> 2047 

2300 REM GLI INDIRIZZI DEI BLOCCHI 

2910 REM DA 64 BVTES NEI QUALI MEMORIZZO 

2920 REM LE 8 FIGURE VELOCI 

2930 REM MESSAGGIO PER L'UTENTE 

2958 PRINT "."JATTENDI UN ATTIMO" SPRINT "1SPER FAVORE" 

2355 PRINT"I»EE VUOI ARRENDERTI PRIMA DI TERMINARE" PRINT "J8IL GIOCO PREMI ’F" 
2960 FOR 1=0 TO 7 
2970 POKE 204@+I,39-l 
2980 NEXT I 

3000 REM MEMORIZZO LE OTTO FIGURE 

3010 REM DALLA PIU GRANDE ALLA PIU PICCOLA 

3030 FOR 1=0 TO 7 

304O READ SI,CE,DE,PO 

3058 GOSUB 2580 

3060 NEXT I 

3030 REM INIZI AL IZZAZ IONE CIRCUITO 
3090 REM V1C-II PER LA GESTIONE DI 
3100 REM OTTO FIGURE VELOCI 
3120 REM NESSUNO ABILITATO 
3140 POKE VI+21,0 

3160 REM BIT ALTI DELLE POSIZIONI ORIZZONTALI A ZERO 
3180 POKE VI+16,0 

3200 REM TUTTI ESPANSI IN ORIZZONTALE 
3220 POKE VI+23,0 
3230 POKE VI+29,255 

3250 REM PREDISPONGO TUTTE LE POSIZIONI VERTICALI 
3270 FOR 1=7 TO 0 STEP -1 
3280 READ ALTI) 

3290 NEXT I 

3300 FOR 1=0 TO 7 

3310 POKE VI+2*I+1,ALCI> 

3320 NEXT I 

3340 REM CARICO IL VETTORE POSIZIONI ORIZZONTALI 

3360 P0<13=72 : P0\2>=160 : P0<3>=247 

3388 REM ORA POSIZIONO TUTTA LA PILA 

3390 REM DI 8 ANELLI SULLA PILA 1 

3410 FOR 1=0 TO 7 

3420 POKE VI+1*2,72 

3430 NEXT I 

3450 REM HO TUTTO PRONTO PER ESSERE VISUALIZZATO 
3470 RETURN 

3490 REM ROUTINE CESTISCE L'INPUT DI UNA STRINGA ALFANUMERICA 

3508 REM LE VARIABILI UTILIZZATE S0Nu:Z6,Z7,Z8,Z9,Z8I, INI 

3518 REM IN INGRESSO VUOLE IL VALORE ZL CHE E LA LUNGHEZZA MASSIMA DELLA 

3520 REM STRINGA DA LEGGERE 

3538 REM IN USCITA DA' LA STRINGA LETTA IN IN* E LA SUA LUNGHEZZA IN Z9 

3550 REM CANCELLO LA ZONA DI SCHERMO IN CUI VERRP ' DIGITATA LA STRINGA 

3570 FOR Z8=I TO ZL PRIN1 " ", NEXT Z3 

■3580 FOR Z8=l TO ZL PRINT "II",: NEXT Z8 

3598 INf="" Z?=TI 

3610 REM LEGGO UN CARATTERE 

3630 GET Z8IIF 28*0"" THEN 3730 

3650 REM ACCEN2I0NE E SPEGNIMENTO DEL CURSORE 

8670 IF Z7CTI AND HOTCZ6 > THEN FRINÌ Z6=N0T<Z6J Z7=T 1+15 

3680 IF Z.VII AND Z6 THEN PRINT " II", Z6=N0TCZ6> Z?=TI+15 

3690 GOTO 3638 

3710 REM E' STATO DIGITATO UN CARATTERE 
3730 Z8=HSC<Z8*>:Z9=I ENCIN4) 

3750 REM SE NON fc' UN CARATTERE ALFANUMERICO, DEVE ESSERE UN RETURN 0 CMD 

3770 IF NOI<<28347 AND Z8<-58> OR <Z8>64 AND Z8<91/> THEN GOTO 3890 

3790 REM CONTROLLI- CHE NON SIA STATA SUPERATA LA LUNGHEZZA MASSIMA 

'810 IF Z9=ZL THEN GOTO 3630 

3830 REM LO AGGIUNGO ALLA STRINGA INI 

0350 INI»INI+Z8*:PRINT Z8I, GOTO 3630 

3370 REM SE E UN RETURN, HO TERMINATO Lll LETTURA 
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3890 IF 23=13 IHEN FRI NT ” I!" • RETURN 

3910 REM SE E DELETE, CANCELLO IN IHi E SUL VIDEO L' ULTIMO CARATTERE DIOITHTO 
3930 IF 28=20 AND Z9>0 THEN IN*=LEFTiiIN*,Z9-1 > • PRINT " HI") GOTO 3630 
3940 GOTO 3630 

3960 REM RE : INIZI ALI22H.;10NE COSTANTI 

3980 REM CIRCUITO VIDEO 

4000 VI=53248 

4040 81=54272 

4060 REM MEMORIA VIDEO 

408O MV=1024 

4100 REM MEMORIA COLORE 

4120 MC=55296 

4140 REM COSTANTI Di USO COMUNE 
4160 ZL=9 

4130 REM INI21ALI22A2I0NE CH1F SUONO 

4200 FOF; 1=0 TO 24 

4210 PQKE SI+1,0 

4220 NEXT I 

4230 RETURN 

4250 REM ROUTINE STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PO* 

4270 GQSUB 4000 
4280 ROKE VI+32,15 
4290 ROKE VI+33, 15 

43 Ò0 print "marnar. 

4310 PRINT TAB<6> * " r-n" 

4320 FOR 1=1 TO 5 

4330 PRINT TRB<6 T.“I 1“ 

4340 NEXT I 

4350 PRINT TAB<6) < *' - -- 

4360 PRINT TMM.ÓJÌ "SWKHftMHDiGITA IRETURNS PER PROSEGUIRE" 

4378 PRINT “HMMSBi" 

4380 FOR 1=1 TU 5 
4390 PRINT T ABC 7> ; 

4400 FòR .1=1 TO 26 
4410 PRINT “Sia 
4420 NEXT J 
4430 PRINT 
4440 NEXT I 

446@ REM ORA SCRIVO IL TITOLO 

4480 PRINT "WlSltìsMilffl", IABC<40 -LENCRG*))/2); ",PO* 

4490 GET Z9* 

450O IF Z9*OCHR*Cl3> THEN GOTO 4490 
4510 PRINT "Ila" . 

4520 RETURN 

4S30 REM ROUTINE FINE PROGRAMMA 

4540 PRINT":)" POKF. V 1*21,0 

4550 POkE VI+21,0 

4560 POPE 33280,14 

4570 POKE 53281 6 

4580 PRINT "IT' 

4590 PRINT vr 
4600 RETURN 
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Grafica monodimensionale 



Questo programma è in grado di visualizzare l’andamento del grafico di 
una funzione di una variabile la cui espressione analitica sia specificata 
aH’interno del programma stesso. 

La funzione da rappresentare dovrà essere inserita nel programma a cu¬ 
ra dell’utente, in una zona appositamente prevista, altrimenti sarà uti¬ 
lizzata, per default, la funzione SINX/X. 


Analisi del 
problema 


attenzione. la funzione oa uiìualizzarc 

C' MEMORIZZATA ALLA LXMCA *4«. 

DIGITA 'C' RER VISUALIZZARLA 
0 PUR GIOCARE ANCORA 

DIGITA 'S' PER MODIFICARLA 

DIGITA 'F' PCR TERMIMARC 

CC/S/T1 ? » 



Una funzione è un’entità matematica che fa corrispondere ad ogni valo¬ 
re di una certa variabile X il valore di una seconda variabile Y. Per indi¬ 
care che una certa variabile dipende da un’altra si può scrivere l’espres¬ 
sione Y=f(X); X è chiamata variabile indipendente e Y variabile dipen¬ 
dente. 

L’eguaglianza esprime l’esistenza di un legame di natura qualsiasi fra 
la variabile Y e la variabile X, in base al quale ad ogni valore assegnato 
alla X, appartenente ad un certo insieme di numeri I, viene a corrispon¬ 
dere un valore ed uno solo per la Y. 

Per ottenere la rappresentazione grafica di una certa funzione Y = f(X) 
su un piano, prima di ogni cosa bisogna fissare un intervallo di defini¬ 
zione per la X, ad esempio quello contenuto fra i valori a e b (si indica 
così: [a,b]). Attribuendo alla X un valore qualunque Xi compreso in (a,b], 
e chiamando Y 1 = f(Xi) il corrispondente valore di Y, i due numeri Xi.Yi 
rappresentano le coordinate di un punto P del piano. L’insieme di tutti 
i punti che si ottengono facendo variare la X nell’intervallo [a,b], cioè l'in¬ 
sieme di tutti i punti del piano le cui coordinate soddisfano l’equazione 
Y = f(X), è il grafico o diagramma della funzione f(X). 

Particolare attenzione bisogna prestare al fatto che non tutte le funzioni 
forniscono punti rappresentabili sul piano per qualsiasi valore della va¬ 
riabile indipendente. Un esempio è dato dalla funzione Y = 1/X, che non 
è definita per X=0. Per questo motivo si dovrà evitare di chiedere al com¬ 
puter di rappresentare le funzioni nei punti che non appartengono al lo¬ 
ro insieme di definizione. 

Dopo aver creato le condizioni per la visualizzazione, il programma chie¬ 
derà all’utente se vuole rivedere ed eventualmente modificare l’espres¬ 
sione analitica della funzione: 

■ in caso affermativo, visualizzerà la linea del programma che la contiene 

■ in caso negativo, richiederà i limiti dell’intervallo sull’asse X in cui si 
vuole conoscere il diagramma (valore minimo e massimo di X). 

Dopo l’immissione dei due dati sarà calcolato il passo di variazione del¬ 
la X per il calcolo dei valori di Y; seguirà poi il calcolo dei valori massi¬ 
mo e minimo assunti dalla funzione (cioè dalla Y) nell’intervallo dell’as¬ 
se X specificato. Resterà così individuata un’area rettangolare contenente 
il grafico della funzione in questione. Il fatto che sia l'utente a fissare 
l’intervallo sull’asse X in cui rappresentare la funzione consentirà di 
espandere o di ridurre a piacere l’intervallo dei valori considerati, in modo 
da poter avere la rappresentazione dell'andamento della funzione in ogni 
punto in cui è definita e con il grado di dettaglio desiderato. Il grafico 
della funzione sarà rappresentato in modo dettagliato facendo uso della 
gestione del video in bit-map, caratteristica del CBM-64. In questo modo 
di funzionamento i singoli punti del video sono indirizzabili dal program¬ 
ma, che è in grado di gestire l’immagine punto per punto, a differenza 
di quanto avviene nel modo normale, nel quale il calcolatore può inviare 
al video soltanto caratteri. 
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Diagrammi 
di flusso 


Dopo aver visualizzato il 
titolo, il programma 
cambia il colore dello 
sfondo e chiede all’utente 
se vuole vedere o 
modificare l'espressione 
analitica della funzione; se 
SI, la linea del programma 
che contiene la definizione 
è visualizzata tramite il 
comando LIST. Poiché è 
stato utilizzato questo 
comando, il programma si 
interrompe, e per mandarlo 
di nuovo in esecuzione è 
necessario ridare il RUN. 

Se la risposta è NO, il 
programma verifica se 
l'utente ha effettuato le 
operazioni POKE 
preliminari al caricamento 
del programma, necessarie 
per allocarlo correttamente 
in memoria, al fine di 
riservare una parte della 
memoria alla gestione in 
bit-map del video. Se le 
POKE sono state eseguite, 
il programma chiede 
all'utente di definire 
l'intervallo della variabile 
X sul quale si vuole 
tracciare il grafico della 
funzione. L’ampiezza di 
questo intervallo determina 
la scelta del passo di 
valutazione del valore di Y, 
cioè la differenza tra due 
valori successivi della X in 
cui è calcolata la funzione. 
Sono quindi calcolati i 
valori massimo e minimo 
assunti dalla funzione 
nell’intervallo considerato, 
al fine di determinare la 
scala della variabile Y sullo 
schermo. 


START 

Z Visualizza 

titolo 

Video blu 

^ si 

( Vuoi vedere \ v / V' 808 ' 1 ?* 

la funzione? } W T/ 1 espressione 

| ir / della funzione 


NO 


y- 7 N 7 — 

Visualizza /£./ Sono state eseguite 
avvertenza le POKE? 

^ SI 

Chiede 

la variazione di X 


Arresto 

dell’esecuzione 


Se il programma non 
è stato caricato correttamente 
l'esecuzione è interrotta 


Calcola il passo 
della X 


Calcola valori 
minimo e massimo 
della Y 


Visualizza il grafico 
della funzione 


1 - 

»■ " i ' € Vuol terminare? 

N0 \_ ZI _/ 


SI 


END 
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Il grafico della funzione è 
visualizzato secondo 
l’algoritmo rappresentato 
nel diagramma di flusso di 
questa pagina. Prima di 
tutto è attivata la bit-map 
ed è inizializzata la parte di 
memoria utilizzata. Poi, 
partendo dal minimo 
valore di X nell'intervallo 
di valutazione, è 
determinato il valore di 
f(X); si passa quindi a 
determinare il valore 
f(X + PX), dove PX è il 
passo calcolato per la 
variabile X. Infine i due 
punti f(X) e f(X + PX), 
relativi a due valutazioni 
successive, sono collegati 
tracciando un segmento. 


Disegno della funzione 


Attiva la bit-map 


* 




Incrementa X 
di una quantità 
pari a PX 


Termina il disegno 
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Il programma 


La prima linea del 
programma (340) definisce 
la funzione di cui si vuole 
tracciare il grafico; segue, 
alla linea 370, la chiamata 
alla subroutine che 
inizializza gli indirizzi e le 
costanti, e che visualizza il 
titolo del programma. 
Queste due routines si 
trovano in coda al 
programma, a partire dalle 
linee 2000 e 2270. Le due 
istruzioni POKE contenute 
nella linea 390 impostano 
per lo sfondo il colore blu. 
Alle linee 410+455 
troviamo un gruppo di 
istruzioni PRINT che 
visualizzano alcune 
informazioni e la richiesta 
se l'utente vuole vedere ed 
eventualmente modificare 
la funzione da graficare: se 
l'operatore digita C si va 
all'istruzione 620 dove 
inizia il programma vero e 
proprio, se invece digita S 
il programma va alla linea 
476 e lista il contenuto 
della linea 340, cioè 
l'espressione della funzione. 
Con l'esecuzione 
dell'istruzione LIST 340 
(linea 479) il programma è 
sospeso. Per rimandarlo in 
esecuzione è necessario 
immettere di nuovo il 
comando RUN. Alla linea 
500 si verifica se sono state 
immesse le istruzioni 
POKE necessarie prima di 
caricare il programma. Se 
ciò non è avvenuto, il 
computer avvisa l'utente 
che bisogna rimemorizzare 
il programma su disco o su 
nastro (linee 570, 580), 
immettere i comandi POKE 
44,64 e POKE 16384,0 
(linee 540, 550) e quindi 
ricaricare il programma 


tee 

ne 

ìze 

140 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

270 

280 

290 

300 

310 

320 

330 

340 

330 

360 

370 

330 

390 

400 

410 

420 

430 

440 

441 
450 
455 
460 
470 

475 

476 

477 

478 

479 

480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 


REM ************************ 

REM GRRFICA MONODIMENSIONALE 
REM »****»«**•****••»***«*** 

REM VARIABILI UTILIZZATE 
REM PO* ‘NOME PROGRAMMA 
REM I,J ^CONTATORI DI CICLO 

REM LX : VALORE MINIMO ASSUNTO DALLA VARIABILE X 

REM HX ‘ VRLORE MASSIMO ASSUNTO DALLA VARIABILE X 

REM PX : PASSO DELLA X 

REM LV : VALORE MINIMO ASSUNTO DALLA Y 

REM HY -VALORE MASSIMO ASSUNTO DALLR Y 

REM FX,FV‘FRTTORI DI SCALA PER LA VISUALIZZAZIONE 

REM X,Y ‘CONTATORI DI CICLO 

REM T ‘VARIABILE DI COMODO 

REM ATTENZIONE, QUESTO'PROGRAMMA INIZIA ALLA LOCAZIONE 16384. 

REM QUINDI, PRIMR DI CARICARLO, OCCORRE IMPOSTARE LE SEGUENTI OPERAZIONI‘ 
REM POKE 44,64 
REM POKE 16384,0. 

REM ORA IL PROGRAMMA VIENE ESEGUITO CORRETTAMENTE 
REM LA FUNZIONE MONODIMENSIONRLE 

REM MEMORIZZATA RLLR LINEA 340 E' QUELLA DA VISUALIZZARE 

DEF FNY<X>»SIN<XVX 

REM INIZIA IL PROGRAMMA 

PO*="GRAFICA MONODIMENSIONALE 11 

OOSUB 2270 

REM SFONDO BLU 

POKE VI+32,6‘POKE VI+33,6 

REM STAMPO INFORMAZIONI 

PRINT "3"; 

PRINT “ATTENZIONE, LA FUNZIONE DA VISUALIZZARE" 

PRINT "BE' MEMORIZZATA RLLR LINER 340." 

PRINT "MBMDIGITA 'C' PER VISURLIZZARLA" 

PRINT "MO PER GIOCARE ANCORR" 

PRINT "HBHDIGITA 'S' PER MODIFICARLA" 

PRINT "MHHDIGITA 'F' PER TERMINARE" 

ZL«1‘PRINT "MMCC/S/TI 7 "i‘008UB 1570 
IF INf="F" THEN DOTO 870 
IF IN*<>“8" THEN GOTO 500 
PRINT ".Hai" 

PRINT “DOPO AVER MODIFICATO LA FUNZIONE" 

PRINT “IPER MRNDARE IN ESECUZIONE IL PROGRAMMA" 

PRINT “«DEVI DIGITARE DI NUOVO 9 RUN «mar‘LIST 340 

REM RICORDIAMO CHE L'OPERAZIONE 'LIST', SOSPENDE L'ESECUZIONE DEL PROGRAMMA 
REM CONTROLLO CHE IL PROQRRMMR SIA SCRITTO DALLA LOCAZIONE 16384 IN POI 
IF PEEKC44)=64 THEN GOTO 620 
PRINT "313" 

PRINT "ATTENZIONE, HAI DIMENTICATO" 

PRINT "UDÌ IMMETTERE I SEGUENTI COMANDI:" 

PRINT "TOSI) POKE 44,64“ 

PRINT ”MS2> POKE 16384,0 

PRINT "BHFRIMA DI IMMETTERLI RICORDA" 

PRINT "JBDI SRL VARE IL PROGRAMMA, SE QUESTO" 

PRINT “«NON E' GIR' PRESENTE SU NASTRO," 

PRINT “ME POI DI RICARICARLO" 

END 

REM ORA INIZIA IL PROGRAMMA 

INPUT "3nraaWRRIAZIONE DELLA X [MIN,MAXI"1LX,HX 

IF LX>*HX THEN OOTO 620 

REM CALCOLO IL PASSO DELLA X 

PX-CHX-LXV319 

REM CALCOLO IL MINIMO ED IL MASSIMO PER V 
LV«FNY<LX)‘HY*LY 

FOR X»LX TO HX STEP PX*4‘T«FNY<X> 

IFT<LYTHENLY*T‘NEXT X‘GQTQ 720 
IFT>HYTHENHY“T‘NEXT X‘GOTO 720 
NEXT X 

FX“319/< HX-LX) 

REM FATTORE DI SCALA PER V 
FY“199/<HY-LY) 

REM DISEGNO LR FUNZIONE 
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(linea 590). Come 
si è detto, i comandi 
specificati servono per 
memorizzare il programma 
in una zona di memoria 
che consenta la 
contemporanea gestione 
della bit-map. Alla linea 620 
inizia il programma vero e 
proprio. L’utente fissa i 
valori minimo e massimo 
della X, e il programma 
(linea 650) calcola il passo 
PX. Alle linee 670+ 710 si 
calcolano i valori massimo 
e minimo per la funzione Y. 
In particolare, l’istruzione 
710 interviene se i due 
NEXT inseriti nelle linee 
690, 700 dopo le istruzioni 
IF non chiudono il ciclo 
iniziato alla linea 680. Le 
istruzioni 720 e 740 fissano 
il fattore di scala per la X e 
per la Y, mentre le 
istruzioni 760+880 
visualizzano il grafico della 
funzione. In questo ultimo 
gruppo di istruzioni sono 
richiamate diverse routines. 
La prima è quella che 
attiva la bit-map (linee 
950+1020); ad essa segue la 
routine che cancella la 
memoria bit-map (linee 
1040, 1050). Lo scopo della 
cancellazione è quello di 
avere ogni punto dello 
schermo libero. La routine 
della linea 1070 fissa il 
colore dello sfondo grigio 
chiaro (codice 15) e quella 
della linea 1150 traccia un 
segmento che unisce gli 
ultimi due punti calcolati 
[quello precedente, di 
coordinate (XP,YP), e quello 
seguente, di coordinate 
(XS,YS)]. Infine, la routine 
1450 disattiva la gestione 
del video in modalità 
bit-map. 


7 60 GOSUB 950 

770 GOSUB 1040 

780 C0=15 : GOSUB 1070 

790 XP=0:YP«CFNY(LX)-LY)*FY 

800 FOR X«LX TO HX STEP PX 

810 X8-<X-LX)*FX YS= ( FN Y < X ) -L Y ) IHF Y 

820 GOSUB 1150 

830 XP-XSVP-YS 

840 NEXT X 

850 GET IN* : IF IN*-"" THEN GOTO 850 

860 GOSUB 1450 

865 IF IN*»"C" THEN GOTO 390 

870 PRINT "m" 

880 POKE VI+32,14 END 

900 REM I SOTTOPROGRAMMI FER LA GESTIONE DELLA GRAFICH, SONO SCRITTI 

910 REM IN MODO DA RENDERE IL PIU' VELOCE POSSIBILE LA LORO AZIONE 

930 REM ROUTINE : INIZIALIZZA IL MODO VIDEO BIT-MAP E LE VRRIRBILI INTERESSATE 

940 REM ATTIVO IL MODO BIT-MAP 

950 POKE VI+17, PEEKC VI + 17) OR 32 

960 REM LA MEMORIA BIT-MAP E' ALLR LOCAZIONE 8192 

970 POKE VI+24,PEEK(VI+241 OR 8 

980 BM-8192 :Z0=8:Z1-320 :Z2-7:Z3=l7Z0 

990 FOR 1=0 TO 7 

1000 Z3(I)=2TI 

1010 NEXT I 

1020 RETURN 

1030 REM ROUTINE'CANCELLO LA MEMORIA BIT-MAP 
1040 Z9-0 : FORI =BMT0BM+7999 : POKEI, Z9 : NEXTI 
1050 RETURN 

1060 REM ROUTINE : IMPOSTO LO SFONDO NEL COLORE CO 
1070 FOR 1=1024TO2023 : POKEI,CO :NEXT I 
1080 RETURN 

1090 REM ROUTINE:ACCENDE IL PUNTO DI COORDINATE XC,YC 
1100 BY-BM+1NT < YC*Z3 )»Z1 + INT CXC*Z3)*Z0+ C YCRNDZ2) 

1110 POKEBY,PEEK< BY)0RZ3 < Z2-< XCANDZ21) 


1120 

RETURN 



1130 

1140 

REM ROUTINE BRACCIA UNA RETTA DA XP,YP 
REM LA RETTA E' PARALLELA ALL'ASSE XC? 

A 

X8, YS 

1150 

IF YP=VS THEN GOTO 1280 



1160 

REM LA RETTA E' PARALLELA ALL'ASSE YC? 



1170 

IF XS=XP THEN GOTO 1330 



1180 

1190 

REM POSSO CALCOLARE IL COEFFICIENTE ANGOLARE 

M=<YP-YS)AXP-XS) 

1200 

IF ABS<M)>1 THEN M-l/M’GOTO 1380 



1210 

1220 

REM CALCOLA L'INTERCETTA ALL'ORIGINE PER 
Q=YS-XS*M 

UNA VARIAZIONE DELLE XC 

1230 

REM TRACCIO LA RETTA 



1240 

FOR XC«XP TO XS STEP SGN(XS-XP) 



1250 

YC-M4XC+Q : GOSUB 1100 "NEXT XC 



1260 

RETURN 



1270 

REM LA RETTA E' PARALLELA ALL'ASSE XC 



1280 

YC-YP 



1290 

FOR XC-XP TO XS STEP SGN<XS-XP> 



1300 

GOSUB1100:NEXT XC 



1310 

RETURN 



1320 

REM LH RETTA E' PARALLELA ALL'ASSE YC 



1330 

XC-XP 



1340 

FOR YC-YP TO YS 9TEP 3GNCYS-YP) 



1350 

GOSUB1100:NEXT YC 



1360 

RETURN 



1370 

1380 

REM CALCOLO INTERCETTA ALL'ORIGINE PER 
Q-XS-YS4M 

UNA VARIAZIONE DELLE YC 

1390 

REM TRACCIO LR RETTR 



1400 

1410 

FOR YC-YP TO YS STEP SGN(YS-YP) 
XC=M*YC+0:Q0SUB1100:NEXT YC 




1420 RETURN 

1430 REM ROUTINE : TERMINA IL MODO VIDEO BIT-MAP 
1440 REM SPENGO IL MODO BIT-MAP 
1450 POKE VI+17,PEEK<VI+17) AND 223 
1460 POKE Vl+24,PEEKCVI+24) AND 24? 
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1470 RETURN 

1490 REM ROUTINE : GESTISCE L'INPUT DI UNR STRINGA RLFRNUMERICR 
1500 REM LE VRRIRBILI UTILIZZATE S0N0:Z6,Z7,Z8.Z9,Z8*,IN* 

1510 REM IN INGRESSO VUOLE IL VALORE ZL CHE E' LA LUNGHEZZA MHSSIMA 
1520 REM DELLA STRINGA DA LEGGERE 

1530 REM IN USCITR Dfl' LA STRINGA LETTA IN IN* E LA SUA LUNGHEZZA IN Z9 

1550 REM CANCELLO LR ZONA DI SCHERMO IN CUI VERRÀ' DIGITATA LA STRINGA 

1570 FOR Z8=l TO ZL : PRINT " " ; '■ NEXT Z8 

1580 FOR Z8«l TO ZL : PRINT ”11", : NEXT Z8 

1590 IN*-"' 1 1Z7=TI 

1610 REM LEGGO UN CARATTERE 

1630 GET Z8* : IF Z8*0'"' THEN 1730 

1650 REM ACCENSIONE E SPEGNIMENTO DEL CURSORE 

1670 IF Z7<TI AND N0TCZ6) THEN PRINT “1*1";:Z6“N0T<Z6>:Z7=TI+15 

1680 IF Z7<TI AND Z6 THEN PRINT • II"; Z6=N0TCZ6>:Z?=TI+15 

1690 GOTO 1630 

1710 REM E' STATO DIOITATO UN CARATTERE 
1730 Z8«ASCCZ8*>:Z9«LENCIN*> 

1750 REM SE NON E' UN CARATTERE RLFRNUMERICO, DEVE ESSERE UN RETURN 0 DELETE 

1770 IF NOT ( (Z8>47 RND Z8C58) OR <Z8)64 AND Z8C311) THEN GOTO 1890 

1790 REM CONTROLLO CHE NON SIA STATA SUPERATA LR LUNGHEZZA MASSIMA 

1810 IF Z9=ZL THEN GOTO 1630 

1830 REM LO AGGIUNGO RLLA STRINGR IN* 

1850 IN*“IN*+Z8* ; PRINT Z8*J:QOTO 1630 

1870 REM SE E' UN RETURN, HO TERMINATO LA LETTURA 

1890 IF Z8“13 THEN PRINT » II" J : RETURN 

1910 REM SE E' DELETE, CANCELLO IN IN* E SUL VIDEO L' ULTIMO CARATTERE DIGITATO 
1930 IF Z8-20 RND Z9>0 THEN IN*“LEFT*<IN»,Z9-1>:PRINT ” 111 ", :GOTO 1630 
1940 GOTO 1638 

I960 REM ROUTINE’INIZIRLIZZAZIONE COSTANTI 

1980 REM CIRCUITO VIDEO 

2000 VI“53248 

2020 REM CIRCUITO SUONO 

2040 SI“54272 

2060 REM MEMORIA VIDEO 

2030 MV*1024 

2100 REM MEMORIA COLORE 

2120 MC=55296 

2140 REM COSTANTI DI USO COMUNE 
2160 ZL=9 

2180 REM INIZIRLIZZAZIONE CHIP SUONO 

2200 FOR 1-0 TO 24 

2210 POKE SI+1,0 

2220 NEXT I 

2230 RETURN 

2250 REM ROUTINE:STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PO* 

2270 QOSUB 2000 
2280 POKE VI+32,15 
2290 POKE VI+33,15 

2300 print “sanar; 

2310 PRINT TAB<6); " r- 

2320 FOR 1-1 TO 5 

2330 PRINT TAB<6>;“I I" 

2340 NEXT I 

2350 PRINT TAB<6)J“>-- 

2360 PRINT TAB(6i; "«aniUOlDIOITA 3RETURN* PER PROSEGUIRE" 

2370 print "man»" 

2380 FOR 1-1 TO 5 
2390 PRINT TAB<7>; 

2400 FOR J«1 TO 26 
2410 PRINT "WS "J 
2420 NEXT J 
2430 PRINT 
2440 NEXT I 

2460 REM ORA SCRIVO IL TITOLO 

2480 print "mnananr ;tab a 40 -len< pg* > >/2); - «r ;po* 

2490 GET Z9* 

2500 IF Z9*OCHR*C13) THEN GOTO 2490 
2510 PRINT "ar; 

2520 RETURN 
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Corsa d’auto 



Questo programma permetterà di simulare la corsa di un'automobile lun¬ 
go un circuito. Avremo così la possibilità di esaminare un altro esempio 
di applicazione degli sprites, in cui dovremo inoltre gestire l'operazione 
di spostamento. Nel nostro caso lo spostamento avverrà solo orizzontal¬ 
mente, in modo da permettere all’automobile di non uscire dalla pista 
che scorre sotto le sue ruote. Nel caso di uscita dal tracciato sarà simu¬ 
lato un urto utilizzando una tecnica tipica dei «cartoons». Oltre a cam¬ 
biare direzione, la pista si restringerà progressivamente, fino a raggiun¬ 
gere una larghezza quasi pari a quella dell’auto. Dopo ogni urto il gioco 
sarà sospeso e il programma chiederà al giocatore se vuole effettuare 
un'altra partita. 

Per rendere più interessante il gioco il programma costruirà per ogni par¬ 
tita un tracciato differente. 


Analisi del 
problema 




Ogni volta che vogliamo simulare il movimento di un oggetto sul video 
dobbiamo decidere, in base alle caratteristiche che desideriamo abbia 
il movimento e alle potenzialità del calcolatore, quali sono gli strumenti 
più adatti per ingannare l'occhio dell’osservatore. Nel nostro caso attue¬ 
remo due strategie distinte: la marcia in avanti dell’auto sarà simulata 
tramite lo scorrimento verticale del circuito, mentre gli spostamenti oriz¬ 
zontali che permettono all’auto di seguire il tracciato saranno effettuati 
realmente. 

Lo spostamento orizzontale sarà comandato dal giocatore con i tasti S 
(sinistra) e D (destra), mentre quello verticale sarà gestito, insieme alla 
forma del tracciato e al progressivo restringimento della pista col pro¬ 
cedere della corsa, direttamente dal programma. 

Per visualizzare e far scorrere il tracciato memorizzeremo i singoli trat¬ 
ti della pista in un array (vettore), il cui indice ci permetterà di leggere 
il tratto di circuito di larghezza e direzione desiderata. In questo caso 
l’array conterrà dodici elementi, in quanto abbiamo previsto per il cir¬ 
cuito quattro larghezze e tre direzioni possibili (destra, sinistra, avanti); 
per disporre comunque di un numero maggiore o minore di possibilità 
di restringimento della sede stradale sarà sufficiente dimensionare un 
array più lungo o più corto. 

Per dare l’impressione del movimento verticale della vettura sarà neces¬ 
sario visualizzare tratti susseguenti di circuito letti di volta in volta dal- 
l’array. Per ogni tratto disegnato sarà incrementato un contatore, il cui 
controllo permetterà di restringere la pista dopo averne visualizzato 110 
tratti (righe dello schermo). 

L’immagine della macchina sarà ottenuta tramite uno sprite, disegnato 
utilizzando i dati inseriti in apposite istruzioni DATA, che permetteran¬ 
no di dargli forma e colore. 

La gestione degli spostamenti orizzontali dell’auto sarà effettuata utiliz¬ 
zando i codici associati ai tasti S e D, che determineranno uno spostamen¬ 
to dello sprite di 8 bits (la larghezza di un carattere) a destra o a sinistra. 
Il programma dovrà anche controllare se una ruota della vettura fuorie¬ 
sce dal circuito, verificando se durante la corsa si è sovrapposta ad un 
punto dello sfondo: in tal caso, tramite ur: apposito ciclo di istruzioni 
POKE, farà lampeggiare il video per simulare l’urto e chiederà se si vuo¬ 
le giocare ancora. Il controllo sarà effettuato sulle ruote posteriori. 

In ogni partita sarà presentato un tracciato differente; utilizzando op¬ 
portunamente la funzione RND (che fornisce valori casuali compresi tra 
0 e 1) il programma determinerà diversi valori dell’indice dell’array, e 
quindi sceglierà ogni volta un percorso di forma diversa. 
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Diagrammi 
di flusso 


Il programma per prima 
cosa stampa il titolo, 
inizializza le costanti del 
C-64 e dimensiona le 
variabili. Visualizza poi le 
istruzioni per l'utente e 
inizializza un generatore di 
numeri casuali compresi 
tra 0 e 1. Segue la 
memorizzazione dello 
sprite che rappresenta la 
vettura e dei dati 
riguardanti la sua 
grandezza, il suo colore e la 
sua posizione iniziale. Nei 
due blocchi successivi sono 
memorizzati in L$ i quattro 
diversi « moduli» che 
compongono il circuito, 
ognuno nelle tre direzioni 
possibili (curva a destra, 
curva a sinistra, avanti 
dritto), è disegnato in grigio 
il primo tratto rettilineo, 
di lunghezza pari a 25 
caratteri, ed è posizionata 
la vettura. 


START 


Inizializzazione 


Z Visualizza 

titolo / 

Z Visualizza 

istruzioni 


Memorizza 

sprite 


Memorizza tratti 
di circuito in L$ 


Z Visualizza primo 

tratto di circuito 

/ Visualizza 
vettura 

.. i 


Per spostare la vettura occorre 
utilizzare i tasti S e D 


Il programma acquisisce i dati 
che riguardano la 
visualizzazione 
della vettura 


I tratti sono 3 
(avanti, destra, sinistra) 
per 4 diverse larghezze 


Al ciclo 
di movimento 
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A questo punto ha inizio il 
gioco e il circuito comincia 
a scorrere cambiando 
direzione in modo casuale; 
coperti 110 tratti della pista 
(variabile U), il programma 
verifica se sono state 
utilizzate tutte e quattro le 
dimensioni previste: se sì, 
termina, altrimenti verifica 
se la direzione del circuito 
è diritta, nel qual caso può 
effettuare il restringimento 
della pista. Nel caso che ciò 
non fosse possibile, 
decrementa di una unità la 
variabile di controllo U e 
torna a disegnare un tratto 
di circuito con le 
dimensioni precedenti. 

Se invece sono stati 
visualizzati meno di 110 
tratti di circuito, il 
programma verifica se è 
stato richiesto uno 
spostamento della vettura, 
e in caso affermativo lo 
esegue. Se si è avuto un 
urto, si fa lampeggiare il 
video e, dopo aver 
cancellato il disegno, si 
visualizza la richiesta di 
consenso a continuare. Per 
effettuare una nuova 
partila basterà digitare S 
ed immettere RETURN; 
altrimenti premendo N e 
digitando RETURN, il 
gioco terminerà. 


Incrementa U 


t 

o 


o 

t 


© 

T 


Ciclo di movimento 
dei percorso e della vettura 


i 


u=o 


Z Visualizza tratto 

successivo 
di circuito 


Decrementa U 


T 

© 


NO 


( 


^ NO 

È richiesto 
spostamento 
dell’auto? 


> 


SI 


Z Visualizza 

spostamento 

- 


NO 


/" -'- \ 

L'auto ha urtato? 


SI 


— ( La corsa è finita? 




^ NO 

NO La strada 

è diritta? 


SI 


/ Stringe 
circuito 


U = 0 
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Il programma 


Le linee 290, 300 sono 
dedicate alla stampa del 
titolo e alla inizializzazione 
delle costanti del C-64 
(routines 2710 e 2440). 
Visualizzati in blu lo 
sfondo dello schermo (linea 
350) e in bianco le 
istruzioni per l'utente (linea 
360+390), il programma 
rimane in attesa che sia 
premuto il tasto che dà 
l'ordine di proseguire (linea 
400). La linea 440 inizializza 
la variabile T, in cui è 
caricato il valore casuale 
ottenuto dalla funzione 
RND; la 480 stabilisce la 
dimensione dell'array L$ in 
cui saranno memorizzati i 
singoli tratti del circuito, e 
la 520 chiama la routine 
2110, che visualizza e 
memorizza il disegno della 
vettura utilizzando i dati 
inseriti nelle istruzioni 
DATA delle linee 
2350+ 2380. Si colora di 
verde lo sfondo con le 
apposite istruzioni POKE 
(linea 560) e si stabiliscono 
le dimensioni dell'auto 
(linea 600); qualora si 
volesse raddoppiare la 
lunghezza dello sprite 
basterà cambiare 
l'istruzione POKE VI+23,0 
con POKE VI+23,1. La 
linea 640 cancella l’ultima 
riga in basso dello 
schermo per eliminare 
Tantiestetica 

visualizzazione progressiva 
dei tratti del circuito, la 
680 inizializza le variabili 
di gestione dello schermo, 
la 720 memorizza lo sprite 
nel tredicesimo blocco di 
memoria, la 760 lo colora 
in rosso e la 800 
posiziona la ruota 
posteriore destra dell’auto 


100 rem ************** 

110 REM «CORSA D'AUTO* 

120 REM ************** 

140 REM VARIABILI UTILIZZATE 


150 REM L*0 
160 REM PO* 

170 REM J,T 
180 REM A* 

190 REM I 
200 REM K 
210 REM B 

220 REM A,C,N1,TM,SW 
230 REM U 
240 REM N 
250 REM NO 


: VETTORE CONTENENTE I "MODULI" CHE COMPONGONO IL CIRCUITO 
: MEMORIZZA IL TITOLO DEL PROGRAMMA 
•CONTATORI DI CICLO 
CARATTERE IN INGRESSO 
■ INDICE DEL VETTORE L*<> 

POSIZIONE ORIZZONTALE DELLA VETTURA 
; INDICA SE LA CORSA E' TERMINATA 
^VARIABILI DI COMODO 

NUMERO DI SEGMENTI DI CIRCUITO VISUALIZZATI 
: NUMERO DI SPAZI A DESTRA DEL CIRCUITO VISUALIZZATO 
•INDICA SE LA RISPOSTA E' STATA AFFERMATIVA 0 NEGATIVA 
270 REM VISUALIZZO NOME PROORAMMA ED INIZIALIZZO COSTANTI COMMODORE 
290 PG*»"C0R8A D'RUTO" 

300 GOSUB 2710 

320 REM PRESENTRZIONE GIOCO 

330 REM SFONDO BLU 

350 POKE VI+32,6 ; POKE VI+33,6 

360 PRINT "CTiiaATTENZIONE- " 

370 RRINT "MMPEfi MUOVERE LA VETTURA " 

380 PRINT "MHUSRRE I TASTI SBS(SINISTRA) HDS(DESTRA)" 

390 PRINT "KBWMMPER PROSEGUIRE PREMI SRETURN5" 

400 GET A* : IF 8*="" THEN GOTO 400 

420 REM INIZIALIZZO GENERATORE DI NUMERI CASUALI 

440 T=RND(-TI) 

460 REM DIMENSIONO ARRRV 
480 DIM L*(12) 

500 REM MEMORIZZO IL DISEGNO DELLA VETTURA 

520 GOSUB 2110 

540 REM SFONDO VERDE 

560 POKE VI+32,5 : P0KE VI+33,5 

580 REM LO SPRITE NON E' ESPANSO 

600 POKE VI+23,0 : POKE VI+29,0 

620 REM RIDUCO IL VIDEO A 24 LINEE 

640 POKE VI+17,PEEK(VI+17) AND 247 OR 7 

660 REM INIZIALIZZO VARIABILI 

680 M a 0 : K=163 : U=0 : I a 0 ; B=0 : C s 1622 

700 REM LO SPRITE E' MEMORIZZATO NEL 13-MO BLOCCO DA 64 BVTES 
720 POKE 2040,13 

740 REM IL COLORE DELLO SPRITE HA CODICE 2 (ROSSO) 

760 POKE VI+39,2 

780 REM POSIZIONO LO SPRITE CON LA RUOTA POSTERIORE DESTRA A CENTRO VIDEO 
800 POKE VI,K : POKE VI+1,160 

820 REM MEMORIZZO NEL VETTORE L*(>, I TRATTI DI CIRCUITO DA VISUALIZZARE 
840 L*<l)="Sr / W" 

850 L*(2)«"8 I 

860 L*C3>="ina \ 1 " 

870 L*<4)«"Sr / W" 

880 L*(5)=" 8 I 

890 L*<6)«''ina \ ■*" 

900 L$<7)=“sr / W" 

910 L*(8)="a I " 

920 L»<9>="ins \ ■*" 

930 L*(10)="iT / W" 

940 L*<ll)-"a I " 

950 L*a2)="ir48 \ V 

970 REM DISEGNO IL PRIMO TRATTO (RETTILINEO) DEL CIRCUITO" 

990 PRINT “3" 

1000 FOR N=1 TO 25 

1010 PRINT TAB(ll)J"inL*(2) 

1020 NEXT N 

1040 REM IL FONDO STRADALE E' GRIGIO 
1060 PRINT "13"; 
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al centro dello schermo. 

Alle linee 840+950 sono 
memorizzati nel vettore L$ 
i tre moduli (curva a 
sinistra, avanti diritto, 
curva a destra) che 
compongono il circuito in 
ciascuna delle quattro 
larghezze previste (in tutto 
dodici elementi). Alle linee 
1000+1060 è disegnato il 
primo tratto del circuito, 
rettilineo e lungo 25 
caratteri, è posizionato il 
ciglio sinistro del circuito 
ad una distanza pari ad 11 
caratteri dal bordo sinistro 
del video ed è colorato in 
grigio il fondo stradale. 
Visualizzato lo sprite (linea 
1110), ha inizio il ciclo 
principale che gestisce lo 
sviluppo (direzione e 
restringimento) del circuito 
e lo spostamento della 
vettura, e verifica se questa 
è uscita di strada (linee 
1160+1460). Visualizzato 
ciascun tratto del circuito, 
si incrementa il contatore 
U, che controlla il numero 
dei segmenti già tracciati. 
Qualora ne siano stati già 
tracciati 110 si passa alla 
linea 1550, che controlla la 
variabile booleana B (flag 
di fine corsa, che può 
assumere solo i valori 0 e 
1). Se B = 1 la corsa è 
terminata, altrimenti 
occorre controllare l'indice 
del vettore L$, per porre B 
uguale a 1 nel caso in cui 
tale indice abbia assunto il 
valore 9 (si è arrivati 
all'ultimo tratto del 
circuito). In questo caso si 
colorano gli ultimi 15 tratti 
della pista in bianco, 
altrimenti si prosegue, e se 
la direzione corrente del 
circuito è rettilinea (linea 
1650), si restringe la strada 
(linee 1690+1720); in caso 
contrario occorre 
aggiungere altri tratti al 
circuito fino a trovarne uno 
rettilineo, per poter 


1070 n=ii 

1030 REM VISUALIZZO LA VETTURA 
1110 POKE VI+21,1 

1130 REM INIZIA IL CICLO PRINCIPALE DEL PROORAMMA 

1140 REM DISEGNO SULLA 25-MA RIGA UN TRATTO DI CIRCUITO ALTO UN CARATTERE 
1160 PRINT SPC<N>;L*<M+2+I> 

1180 REM SE HO DISEGNATO 110 LINEE DEL CIRCUITO CON LA STESSA LARGHEZZA/ 

1190 REM LO RESTRINGO E CONTROLLO CHE LA CORSA NON SIA TERMINATA 
1210 U“U+1 : IP U=110 THEN GOTO 1550 

1230 REM POSIZIONO LA VETTURA A SECONDA DELLO SPOSTAMENTO DESIDERATO 
1250 POKE VI+16/SGNCK AND 256):P0KE VI/K AND 255 
1270 REM CONTROLLO SE E' RICHIESTO LO SPOSTAMENTO DELLA VETTURR 
1290 A=PEEK<197) 

1300 IF A-13 THEN K=K-8 
1310 IF A=18 THEN K=K+8 

1330 REM CONTROLLO SE LE RUOTE DELLA VETTURA SONO USCITE DAL 
1340 REM CIGLIO STRADALE 

1360 IF PEEK(C-t-K/81=32 OR PEEK(C+1+KX8>=32 THEN GOTO 1770 

1380 REM DECIDO SE E IN CHE VERSO IL CIRCUITO DEVE CAMBIARE DIREZIONE 

1400 IF RNDCOX7 THEN M=INTCRND<1)#3)-1 

1420 REM CONTROLLO CHE IL CIRCUITO SIA TUTTO COMPRESO NELLA LINEA DI SCHERMO 
1440 N1=N+M 

1450 IF Nl>28 OR N1<0 THEN N1=NM=0 
1460 N*N1 

1480 REM RICOMINCIA IL CICLU PRINCIPALE 
1500 GOTO 1160 

1520 REM SE B VALE 1 ALLORA IL CIRCUITO E' TERMINATO (HO VISUALIZZATO 
1530 REM 15 LINEE DI CIRCUITO IN BIANCO) 

1550 IF B THEN GOTO 1960 

1570 REM SE I VALE 9 SONO TERMINATI I TRATTI DI CIRCUITO DA VISUALIZZARE 
1580 REM QUINDI PONGO B=1 E FACCIO DISEGNARE LE ULTIME 15 LINEE IN BIANCO 
1600 IF 1=9 THEN B=1-PRINT "C,:U=95: GOTO 1250 

1620 REM NON POSSO STRINGERE LA PISTA SE LA SUA DIREZIONE NON E' RETTILINEA 

1630 REM IN QUESTO MODO I TRATTI DI CIRCUITO NON SONO NECESSARIAMENTE LUNGHI 110 

1650 IF MO0 THEN U=109 GOTO 1250 

1670 REM RESTRINGO LA PISTA 

1690 N=N+1 

1700 U=0 

1710 M=0 

1720 1=1+3 

1730 GOTO 1250 

1750 REM LA VETTURA E' USCITA FUORI PISTA. FACCIO LAMPEGGIARE IL VIDEO 

1770 FOR N=1 TO 30 

1780 POKE VI+32/1 

1790 FOR T=1 TO 10 

1800 NEXT T 

1810 POKE VI+32,5 

1820 NEXT N 

1840 REM SPENGO LO SPRITE 
1860 POKE VI+21,0 

1880 REM AVVERTO L'UTENTE E GLI CHIEDO SE VUOLE GIOCARE ANCORA 
1900 PRINT •'THaKMWSEI ANDATO A SBATTERE!" 

1910 GOTO 1990 

1930 REM LA CORSA E' TERMINATA. L'UTENTE HA VINTO; LO AVVERTO E GLI CHIEDO 

1940 REM SE VUOLE GIOCARE ANCORA 

I960 FOR N=1 TO 1000:NEXT N 

1970 POKE VI+21,0:REM CANCELLA LO SPRITE 

1980 print "jmamshfa finito la corsa!" 

1990 PRINT 

2010 REM RICHIESTA DI GIOCARE 
2030 GOSUB 2190 
2040 PRINT "si"; 

2050 IF SN THEN GOTO 680 

2060 PRINT “31"; POKE V1+17,PEEK<VI+17> AND 251 OR 8 
2070 POKE 53280,14:POKE 53281,6:END 
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finalmente eseguire il 
restringimento. 

A questo punto il 
programma verifica se è 
stato richiesto uno 
spostamento orizzontale 
della vettura, nel qual caso 

10 effettua, a sinistra (linea 
1300) o a destra (linea 1310); 
quindi controlla se una 
delle ruote posteriori della 
vettura si è venuta a 
trovare fuori del circuito 
(linea 1360): se sì, comanda 

11 lampeggiamento dei 
contorni del video (linee 
1770+1820), la sparizione 
dell'auto (linea 1860) e, per 
ultimo, la visualizzazione 
del messaggio contenuto 
nella linea 1900. 

La linea 2030 chiama la 
routine 2190, in cui si 
svolgono diverse 
operazioni: si chiede al 
giocatore se vuole 
effettuare un'altra partita, 
si gestisce la scelta della 
risposta, si memorizza nella 
variabile NO il tipo di 
risposta avuta (linee 2280, 
2290), e quando è premuto 
il tasto RETURN (linea 
2300) si passa il valore della 
variabile NO alla SN e lo si 
controlla, in modo da poter 
decidere se ricominciare il 
gioco o terminarlo (linea 
2050). Qualora l’auto non 
sia uscita di strada, il 
programma decide, 
utilizzando la funzione 
RND (linea 1400), se e in 
che modo il circuito deve 
cambiare direzione. Nel 
caso in cui la nuova 
direzione scelta porti il 
circuito a sparire dalla 
visuale, il programma 
impone di proseguire dritto 
(linee 1440+1460). Tramite 
l'istruzione della linea 1500 
è nuovamente iniziato il 
ciclo principale (linee 
1160+1500). 


2090 REM ROUTINE CHE MEMORIZZA IL DISEGNO DELLA VETTURA 

2110 FOR N=64*13 TO 64*13+62 

2120 READ A 

2130 POKE N,R 

2140 NEXT N 

2130 RETURN 

2170 REM ROUTINE CHE CHIEDE RL GIOCRTQRE DI RISPONDERE SI 0 NO 
2190 NO=0 
2200 TM=0 
2210 8W=1 

2220 PRINT "«IOGHI RNCORA ? JUSI NO")" 

2230 IF TICTM THEN GOTO 2270 

2240 PRINT TRB<16+N0*4);MID*<"re",SU,l)JMID*<"SI NO ",3*N0+1,3>;“T 
2250 SW=3-SW 
2260 TM-TI+1S 
2270 OET D* 

2280 IF D$-"N" THEN N0=1 GOTO 2220 
2290 IF D$="S" THEN NO=0:GOTO 2220 
2300 IF D*=CHR*<13> THEN SN=<NO=0>: RETURN 
2310 GOTO 2230 

2330 REM DATI RIGUARDANTI IL DISEGNO DELLA VETTURA 

2330 DATA 0,0,0,71,255,226,239,60,247,254,24,127,253,255,191,237,129,183 

2360 DATA 237,0,183,205,255,179,13,0,176,15,255,240,15,255,240,15.255,240 

2370 DATA 15,255,240,239,255,247,255,233,255,255,255,255,255,255.255,246,255 

2380 DATA 111,243,126,207,1,255,128,0,126,00 

2400 REM ROUTINE DI INIZIALIZZAZIONE COSTANTI 

2420 REM CIRCUITO VIDEO 

2440 VI=53248 

2460 REM CIRCUITO SUONO 

2480 SI=54272 

2503 REM MEMORIA VIDEO 

2520 MV-1024 

2540 REM MEMORIA COLORE 

2560 MC=55296 

2380 REM COSTANTI DI USO COMUNE 
2600 ZL=9 

2620 REM INIZIALIZZAZIONE CHIP SUONO 

2640 FOR 1=0 TO 24 

2650 POKE SI+I,8 

2660 NEXT I 

2673 RETURN 

2690 REM ROUTINE DI STAMPA DEL TITOLO DEL PROGRAMMA MEMORIZZATO IN PO* 

2710 GOSUB 2440 
2720 POKE VI+32,15 
2730 POKE VI+33,15 
2740 PRINT 

2750 PRINT TAB<6) , " r-—v' 

2760 FOR 1=1 TO 5 

2770 PRINT TABC6 );"I |- 

2780 NEXT I 

2790 PRINT TAB(6>; " - -- 

2800 PRINT TRB(6>; "302PWMIWDIGITA 5RETURN! PER PROSEGUIRE" 

2810 PRINT "SMKHffi" 

2820 FOR 1 = 1 TO 5 
2830 PRINT TABC7>; 

2840 FOR 3=1 TO 26 
2850 PRINT “SIS 
2860 NEXT J 
2870 PRINT 
2880 NEXT I 

2900 REM ORA SCRIVO IL TITOLO 

2920 PRINT "MMMflttlWr , THB('40-LEN(PG$>)/2), ":«";PGT 
2930 GET Z9* 

2940 IF Z9*OCHR*U3) THEN GOTO 2930 
2950 PRINT “ns|“ • 

2960 RETURN 
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Alta risoluzione 



Con questo programma si porterà il lettore a familiarizzare con alcuni 
degli strumenti grafici evoluti disponibili sul CBM-64. L’obiettivo è quello 
di affrontare i problemi che si presentano nel disegno di figure geome¬ 
triche e nell’approssimazione di linee curve con segmenti di retta. 

In particolare proveremo a disegnare delle spirali la cui apertura potrà 
variare, in f unzione dei valori forniti in ingresso al programma, in modo 
da vedere gli effetti delle variazioni di questi valori sul disegno stesso. 


Analisi del 
problema 


Usando gli strumenti del CBM-64 possiamo tracciare un disegno curvilineo 
in un solo modo: accendendo nella «scacchiera» rappresentata dal video 
i punti per i quali passa la curva. Poiché i punti sono in numero finito il 
risultato non sarà mai una curva perfetta, ma sarà sempre una approssi¬ 
mazione ottenuta con una successione di segmenti rettilinei che formano 
una spezzata. In questo programma studieremo le conseguenze di questa 
approssimazione attraverso il tracciamento di linee a spirale, costituite da 
tanti segmenti, ognuno ruotato di un certo angolo rispetto al precedente. 
Per ovviare alla scarsa definizione del video in modalità testo abbiamo 
la possibilità di ricorrere alla bit-map, che ci permette una rappresenta¬ 
zione più dettagliata. 

Passiamo quindi ad affrontare il problema di come si disegna la spezzata 
che approssima la spirale. Tracciando una successione di segmenti di lun¬ 
ghezza costante otterremmo il disegno di un poligono regolare; per evitare 
ciò dovremo quindi per prima cosa stabilire un incremento nella lunghezza 
dei successivi segmenti di retta che saranno visualizzati sullo schermo. 
Ovviamente, quanto maggiore sarà l'incremento tanto più la spirale risul¬ 
terà «aperta». È necessario inoltre determinare l’angolo di rotazione di un 
segmento rispetto al precedente, che influenzerà l'apertura della figura. 
Stabiliti gli strumenti necessari per la realizzazione del disegno, dobbia¬ 
mo studiare come sia possibile realizzare ogni segmento che la compo¬ 
ne. Immaginiamo lo schermo come un piano cartesiano, in modo da po¬ 
ter associare ad ogni singolo punto le rispettive coordinate. Possiamo cal¬ 
colare le coordinate di ogni segmento, partendo da quelle dell'ultimo pun¬ 
to del segmento precedente, applicando le seguenti formule: 



Xs = X P + LU*COS (TG) 

Y s = Yp + LU*SIN (TG) 

dove Xs e Ys sono le coordinate del punto di arrivo, Xp e Yp le coordinate 
del punto di partenza, LU è la lunghezza del segmento, TG l’angolo di 
rotazione. Calcolato il punto di arrivo tracciamo il segmento che lo con¬ 
giunge con quello di partenza: se il segmento risulterà parallelo ad uno 
dei due assi cartesiani, sarà possibile semplificare le operazioni di cal¬ 
colo, e quindi determinare più velocemente tutti i punti del segmento da 
tracciare; se invece non risulterà parallelo a nessuno dei due assi carte¬ 
siani, si calcolerà di nuovo il coefficiente angolare (cioè l’inclinazione) 
del segmento che unisce il punto di partenza con quello di arrivo. 
Individuati tutti i punti del segmento possiamo accenderli nella bit-map 
per ottenere la sua visualizzazione. 

Porremo il punto di origine della figura al centro dello schermo, per ave¬ 
re la massima estensione del disegno. 

Infine, per controllare che i valori forniti in ingresso per l’incremento 
e per l’angolo di rotazione siano numerici, li porremo in una stringa al¬ 
fanumerica, che sarà trasformata in un valore numerico mediante la fun¬ 
zione VAL. Tale funzione restituirà il valore zero se la stringa letta con¬ 
tiene caratteri non numerici. 


96 







































Diagrammi 
di flusso 


Il primo blocco controlla se 
la base del programma è 
stata posta nella locazione 
di memoria 16384, al fine 
di permettere di collocare 
la bit-map dove 
normalmente risiede il 
programma. 

Seguono l'inizializzazione 
delle costanti del C-64 e la 
visualizzazione del titolo. 
Sono poi richiesti 
l’incremento e l'angolo di 
rotazione in gradi 
sessagesimali, che l'utente 
deve impostare tramite la 
tastiera. 

Subito dopo il programma 
trasforma il valore dei 
gradi sessagesimali in 
radianti, poiché le funzioni 
SIN e COS richiedono che 
il loro argomento sia 
espresso proprio in 
radianti. Si ha poi la fase 
di inizializzazione dello 
schermo in modo grafico, 
cancellando tutto ciò che è 
tracciato nella bit-map. Si 
devono quindi inizializzare 
le coordinate di partenza 
del segmento di retta, 
calcolando anche 
l'incremento. 



Visualizza 

messaggio 




END 


C st>rt ) 

< La base 
del programma 
è stata spostata? 


SI 


Inizializzazione 


7 

* 

) Visualizza 

L . ,itol ° / 

* 

/— ; -7 

Lettura incremento 

/ Lettura angolo 
di rotazione 


Trasformazione da 
gradi in radianti 


Inizializzazione 
della bit-map 


Z Cancellazione 

bit-map 
Sfondo blu 



* 

O 


La gestione della bit-map 
richiede la rilocazione 
del programma 


Immissione dell'incremento 
da pane dell'utente 


Immissione dell'angolo di 
rotazione in gradi 


I calcoli successivi sono 
eseguiti in radianti 


Il punto di partenza della 
spirale è collocato al centro 
del video 
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Tale calcolo sarà ottenuto 
sommando alle coordinate 
del segmento di partenza la 
lunghezza del segmento 
incrementato moltiplicata 
per il coseno dell'angolo di 
rotazione per quanto 
riguarda l'asse delle X, e 
per il seno per l’asse 
delle Y. A questo punto è 
necessario verificare se il 
punto di arrivo calcolato 
cade all’esterno dello 
schermo. In caso negativo, 
il programma traccia un 
segmento di retta fra il 
punto di arrivo e quello di 
partenza e prosegue, 
altrimenti cessa 
l’esecuzione prima di 
tracciare il segmento. 
Procedendo 

nell’elaborazione, si calcola 
l’incremento da attribuire 
all’angolo di rotazione: tale 
angolo deve essere sempre 
compreso fra 0 e 360°; se 
supera i 360° gli è sottratto 
il valore 2*n (radianti), che 
corrisponde appunto a 
360°. Successivamente si 
verifica se è stato premuto 
il tasto F. 

L’immissione del carattere 
F determina la fine 
dell’esecuzione del 
programma, la 
disattivazione della bit-map 
e la cancellazione del 
video. 

In caso contrario 
l'esecuzione continua a 
partire dal calcolo delle 
coordinate di arrivo, per 
determinare l’indirizzo di 
un nuovo punto. 


Se le coordinate 
del nuovo 
punto cadono 
fuori dello schermo 
l'esecuzione termina 


Il carattere F 
determina la 
fine dell’esecuzione 



Torna a calcolare 
un nuovo 
punto di arrivo 
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Il programma 


All'inizio dell’esecuzione la 
linea 300 controlla se la 
base del programma è stata 
rilocata all'indirizzo di 
memoria 16384. 

Se non è così si 
visualizzano le istruzioni 
necessarie (linee 320 + 400). 
Dopo l'inizializzazione delle 
costanti e la visualizzazione 
del titolo (linee 430, 440), le 
linee 460, 470 chiedono il 
valore con cui 
incrementare il segmento 
di retta e chiamano la 
routine 1570, che cancella 
quella parte dello schermo 
su cui saranno visualizzati 
i valori dell'incremento del 
segmento e dell'angolo 
inseriti dall'utente. Segue 
la lettura dei caratteri 
immessi controllando che 
non sia superata la 
lunghezza massima di 5 
caratteri (sia per 
l’incremento sia per 
l'angolo sessagesimale). La 
linea 480 trasforma il 
valore della stringa in 
valore numerico e lo 
attribuisce alla variabile 1C 
(incremento del segmento). 
Se il valore dell'incremento 
del segmento è minore o 
uguale a 0 (linea 490) allora 
si torna alla linea 460. 

Alle linee 510, 520 è 
visualizzata la richiesta del 
valore dell'angolo 
sessagesimale. 

La linea 530 chiama 
nuovamente la routine di 
gestione della stringa 
alfanumerica, per 
memorizzare i valori 
desiderati per l'angolo di 
rotazione (GS), ripetendo le 
operazioni già effettuate 
per l'incremento del 
segmento, con la differenza 
che il valore dell'angolo di 


100 REM **************** 

110 REM ALTA RISOLUZIONE 
120 REM **************** 

140 REM VARIABILI UTILIZZATE 
160 REM I,J : CONTATORI DI CICLO 

170 REM IC • INCREMENTO DELLA LUNGHEZZA DEC SEGMENTO 

180 REM G8 : GRADI SESSAGESIMALI 

190 REM OR : GRADI RADIANTI 

200 REM TG : ANGOLO DI ROTAZIONE DEL SEGMENTO 

210 REM CO ■COLORE DELLO SFONDO DELLA BIT-MAP 

220 REM XP/VP : COORDINATE DEL PUNTO DI PRRTENZR DEL SEGMENTO 

230 REM XS,VS : COORDINATE DEL PUNTO DI ARRIVO DEL SEGMENTO 

240 REM LU : LUNGHEZZA CORRENTE DEL SEGMENTO 

230 REM XC/VC : COORDINATE DEL PUNTO DELLA BIT-MAP DA ACCENDERE 

260 REM A* VARIABILE DI INORESSO 

280 RIA CONTROLLO CHE LA BASE DEL PROGRAMMA SIA STATA MESSA ALLA LOCAZIONE 16384 

300 IF PEEK<44)“64 THEN GOTO 430 

310 REM AVVERTO CHE IL PROGRAMMA NON PUÒ' ANDARE IN ESECUZIONE 
320 PRINT "rnUDO" 

330 PRINT "ATTENZIONE, HAI DIMENTICATO" 

340 PRINT "«DI IMMETTERE I SEGUENTI COMANDI ; 11 
rasi) POKE 44,64s" 

®SZ> POKE 16384,0“ 

««PRIMA DI IMMETTERLI RICORDA" 

«DI SALVARE IL PROGRAMMA,SE QUESTO" 

«NON E' GIR' PRESENTE SU NASTRO," 

«E POI DI RICARICARLO" 


350 PRINT 
360 PRINT 
370 PRINT 
380 PRINT 
390 PRINT 
400 PRINT 
410 END 

420 REM STAMPA TITOLO ED INIZIRLIZZAZIONE COSTANTI C64 
430 PG*="RLTA RISOLUZIONE" 

440 G08UB 2270 

450 REM VRLORE DI CUI INCREMENTARE LA LUNGHEZZA DEL SEGMENTO 
460 PRINT "8CBISB3PER GIOCARE ANCORA DIGITA 'G'B" 

462 PRINT "«BCSPER TERMINARE DIGITA 'F'B" 

465 PRINT "KHKKDINCREMENTO PER IL SEGMENTO ? "1 
470 ZL-5 : GOSUB 1570'PRINT 
480 IC=VHL<IN*) 

490 IF ICO0 THEN GOTO 460 

500 REM ANGOLO DI ROTAZIONE 

510 PRINT "««ANGOLO DI ROTAZIONE- IN GRADI " 

520 PRINT "«SESSRQESIMRLI ? "J 
530 ZL=5:GOSUB 1570:PRINT 
540 GS=VAL<IN*> 

550 IF GS=0 THEN PRINT "1 H" GOTO 520 

560 REM TRASFORMO I GRADI SESSAGESIMALI IN GRADI RADIANTI 

570 GR“GS*ff/180 ; TG“GR 

580 REM INIZIO IL DISEGNO 

590 REM INIZIALIZZO GRAFICA 

600 GOSUB 950 

610 REM CANCELLO IL VIDEO BIT-MAP 

620 GOSUB 1040 

630 REM COLORO IN BLU 

640 C0=6:GOSUB 1070 

650 REM POSIZIONI DI INIZIO 

660 XP=160 

670 VP=100 

680 LU=0 

690 REM CRLCOLO COORDINATE DEL PUNTO DI ARRIVO 
700 XS=XP+LU*COS<TG> 

710 VS=VP+LU*SIN<TG1 

720 REM SE UNO DEI PUNTI DEL SEGMENTO E' FUORI QUADRO,SMETTO DI DISEGNARE 

730 IF XS>319 OR VS>199 THEN GOTO 870 

740 REM DISEGNO IL SEGMENTO 

750 GOSUB 1150 

760 aP=XS 

770 VP=VS 

780 TG=TG+GR 

790 TG=TG-INT(IG/2/)r^*2*)r 
800 LU=LU+1C 
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rotazione può anche essere 
minore di 0. 

Alla linea 570 si 
trasformano i gradi 
sessagesimali in radianti 
(gradi radianti = gradi 
sessagesimali * n/180), 
quindi la linea 600 chiama 
la routine 950, cui è 
demandato il compito di 
inizializzare la bit-map 
dello schermo. La bit-map 
(BM) è caricata in memoria 
a partire dall’indirizzo 8192, 
riservandole uno spazio di 
8 kbytes. La routine gestisce 
ogni singolo punto della 
bit-map partendo dal primo 
punto in alto a sinistra. 

La linea 620 chiama la 
routine 1040 che cancella 
l'eventuale immagine 
presente e la linea 640 
chiama la routine 1070, che 
colora il fondo della bit- 
map in blu. 

Alle linee 660+ 680 il punto 
di partenza del segmento 
(XP, YP) è posizionato al 
centro dello schermo ed è 
inizializzata la variabile LU 
(lunghezza del segmento). 

Le linee 700, 710 calcolano 
le coordinate del punto di 
arrivo del segmento (XS, YS) 
sommando alle coordinate 
del punto di partenza (XP, 
YP) la lunghezza del 
segmento data dall'utente 
moltiplicata per il coseno 
dell'angolo di rotazione 
(per quanto concerne l'asse 
X) o per il seno dello stesso 
angolo (per quanto 
concerne l’asse delle Y). 

La linea 730 verifica se le 
coordinate dei punti di 
arrivo cadono fuori 
schermo: in questo caso si 
ferma l'esecuzione e il 
disegno termina nel punto 
di arrivo dell'ultimo 
segmento tracciato. 

Di seguito, la linea 750 
chiama la routine 1150 che 
traccia il segmento dal 
punto di partenza al punto 
di arrivo. Se la coordinata 


810 
828 
825 
829 
880 
84 & 
850 
r:80 

870 

880 

885 

887 

890 

900 

910 

920 

930 

•840 

950 


990 

1000 

1010 

1020 

1030 

1040 

1050 

1080 

1070 

lese 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 


REM SE E' PREMUTO IL TftSTO E'. TERMINO IL DISEGNO 
GET A* IF H*="F" r.HEtl GOTO 840 
IF H$="G" THEN GOSUB 1450 : GOTO 460 
GOTO 700 

REM TERMINH IL DISEGNO 
GOSUB 1450 
FRI NT "."ir 

POKE 01*32,14 PONE VI+33,6 END 
gET R* IF A*='"' THEN GOTO 878 
IF A$=“F" THEN GOTO 340 
IF R*='V IHEN GUSUB 450 GOTO 460 
GOTO 840 


REM 

REM I SOTTOPRÙGRRMMI PER LH GESTIONE DELLR GRHFICH, SONO SCRITTI 

REM IH MODO DR RENDERE IL PIU' VELOCE POSSIBILE LH LORO R2IGNE 

REM «*4***M***;M**#*******t***«**t*«*#*****>*****«4*******+>+4*«*«-+.C*t+tt 

REM ROUTINE INIZIALI2ZA IL MODO VIDEO BIT-MRP E LE VHRIRBILI INTERESSATE 

REM RII IVO IL MODO B1I-HHP 

POKE V:+l7.PEEKtVI+17) OR 32 

REM LR MEMORIA BIT-MRP £• RLLfi LOCAZIONE 3192 

POKE V1+24,PEEK < VI+24 > OR 8 

BM=3192 :Z0=8 Z1=320 :Z2=7:23=1/Z0 


FOR 1=0 TO 7 
Z3<I )=2TI 
NEXT I 
RETURN 

REM ROUTINE:CRNCELL0 LR MEMORIA BIT-MRP 
29=0 :FORI=BMT0BM+7999:POKE1,29•NEXT 
RETURN 

REM ROUTINE:IMPOSTO LO SFONDO NEL COLORE CO 

FORI = 1024TO2023:POKEI,CO :NEXT 

RETURN 

REM ROUTINE ACCENDE IL PUNTO DI COORDINATE XC,VC 
BY=BM+1NT < YC*Z3 > *Z1 +1NT < XC*Z3 > *Z0+ < VCANDZ2 0 
POKEBY,PEEK CBV)0R23 ( 22-CXCANDZ2 )) 

RETURN 

REM ROUTINE TRACCIA UNA RETTA DA XP,YP A XS,YS 
REM LA RETTA E" PARALLELA ALL'ASSE XC? 

IF YP=YS THEN GOTO 1280 

REM LA RETTA E' PARALLELA ALL'ASSE YC? 

IF XS=XP THEN GOTO 1330 

REM POSSO CALCOLARE IL COEFFICIENTE ANGOLARE 
M=CVP-YS)/CXP-XS) 

IF RBS(M)>1 THEN M=1/M:G0T0 1380 

REM CALCOLO INTERCETTA ALL'ORIGINE PER UNA VARIAZIONE DELLE XC 
Q=YS-XS*M 

REM TRACCIO LA RETTA 

FOR XC=XP TO XS STEP SGNCXS-XPl 

YC=M*XC+Q;GOSUB1100 :NEXT 

RETURN 

REM LA RETTA E' PARALLELA ALL'ASSE XC 
YC=YP 

FOR XC=XP TO XS STEP SGN(XS-XP) 

GOSUB1100:NEXT 
RETURN 

REM LR RETTA E' PARALLELA ALL'ASSE YC 
XC*XP 

FOR YC=YP TO YS STEP SGN<YS-YP) 

GOSUB 1100 NEXT 
RETURN 

REM CALCOLO INTERCETTA ALL'ORIGINE PER UNA VARIAZIONE DELLE YC 
Q=XS-YS*M 

REM TRACCIO LA RETTA 

FOR VC=YP TO YS STEP SGN(YS-YP) 

XC=M*YC+Q:G0SUB1100 :NEXT 
RETURN 

REM ROUTINE GERMINA IL MODO VIDEO BIT-MAP 
REM SPENGO IL MODO BIT-MAP 
POKE VI+17,PEEKCVI+17> AND 223 
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Y del punto di partenza è 
uguale a quella del punto 
d’arrivo (YS = YP, linee 
1280, 1290) il segmento 
risulta parallelo all’asse X; 
di conseguenza si calcolano 
le sole coordinate X 
di tutti i punti del 
segmento che unisce il 
punto di partenza a quello 
di arrivo, e si chiama la 
routine 1100, che visualizza 
il segmento. Se la 
coordinata X del punto di 
partenza è uguale a quella 
del punto d’arrivo, e quindi 
se il segmento è parallelo 
all'asse Y(XS = XP, linea 
1170), si eseguono le 
medesime operazioni (linea 
1330) del caso precedente, 
invertendo la X con la Y. 

Se infine il segmento non è 
parallelo né all'asse X né 
all'asse Y allora si calcola 
il coefficiente angolare 
(cioè l’inclinazione) del 
segmento di retta che 
unisce il punto 
di partenza al punto di 
arrivo (linea 1190), e si 
traccia il segmento così 
determinato, per tornare 
poi alla linea 750. 

Alle linee 760, 770 il 
programma assegna le 
coordinate del punto di 
arrivo al nuovo punto di 
partenza, poi calcola il 
nuovo angolo di rotazione 
del segmento (linee 780, 

790), sommando al 
precedente (TG) i gradi 
radianti prestabiliti per il 
successivo (calcolati alla 
linea 570). Qualora l'angolo 
ottenuto superi l'angolo 
giro (360 gradi =2* n 
radianti) verrà utilizzato 
l'angolo ottenuto 
sottraendo all'angolo di 
rotazione l’angolo giro. 

La linea 800 calcola la 
lunghezza del segmento 
successivo sommando 
l'incremento al precedente 
valore della 
lunghezza. 


1460 POKE VI+24,PEEK(VI+24) AND 247 
1470 RETURN 

1490 REM ROUTINE : GESTISCE L'INPUT DI UNA STRINGA ALFANUMERICA 
1500 REM LE VARIABILI UTILIZZATE SONO Z6, Z7, Z8,Z9,Z8»,IN* » 

1510 REM IN INGRESSO VUOLE IL VALORE ZL CHE E' LA LUNGHEZZA MASSIMA 
1520 REM DELLA STRINGA DA LEGGERE 

1530 REM IN USCITA DR' LA STRINGA LETTA IN IN* E LA SUA LUNGHEZZA IN Z9 

1550 REM CANCELLO LA ZONA DI SCHERMO IN CUI VERRÀ DIGITATA LA STRINGA 

1570 FOR Z8=l TO ZL: print " ", NEXT ZS 

1580 FOR Z8=l TO ZL: PRINT " 11 ", NEXT 28 

1590 INt=”":Z7=TI 

1610 REM LEGGO UN CARATTERE 

1630 GET Z8*:IF Z8*0" " THEN 1730 

1650 REM ACCENSIONE E SPEGNIMENTO DEL CURSORE 

1670 IF Z7CTI AND N0T<Z6> THEN PRINT "MI"; Z6=N0T<Z6) Z?=TI+15 

1680 IF Z7CTI AND Z6 THEN PRINT " II", Z6=N0T(.Z6> :Z?=T1 + 15 

1690 GOTO 1630 

1710 REM E STATO DIGITATO UN CARATTERE 
1730 Z8=ASC<Z8*):Z9=LEN<IN*> 

1750 REM SE NON E' UN CARATTERE ALFANUMERICO, DEVE ESSERE UN RETURN 0 DELETE 
1770 IF N0T(Z8>31 AND Z8C96) THEN GOTO 1890 

1790 REM CONTROLLO CHE NON SIA STATA SUPERATA LA LUNGHEZZA MASSIMA 

1810 IF Z9=ZL THEN GOTO 1630 

1830 REM LO AGGIUNGO ALLA STRINGA IN* 

1850 IN*=IN*+ZS*:PRINT Z8$, GOTO 1630 

1870 REM SE E' UN RETURN, HO TERMINATO LA LETTURA 

1890 IF Z8=13 THEN PRINT ■ II", RETURN 

1910 REM SE E' DELETE, CANCELLO IN IN* E SUL VIDEO L' ULTIMO CARATTERE DIGITATO 
1930 IF Z8=20 AND Z9>0 THEN IN*=LEFT*(IN*,Z9-1) PRINT “ 111 "; GOTO 1630 
1940 GOTO 1630 

I960 REM ROUTINE: INIZIRLIZZAZIONE COSTANTI 

1980 REM CIRCUITO VIDEO 

2000 VI=53248 

2020 REM CIRCUITO SUONO 

2040 SI=54272 

2060 REM MEMORIA VIDEO 

2080 MV=1024 

2100 REM MEMORIA COLORE 

2120 MC=55296 

2140 REM COSTRNTI DI USO COMUNE 
2160 ZL=9 

2Ì80 REM INIZIALIZZAZIONE CHIP SUONO 

2200 FOR 1=0 TO 24 

2210 POKE SI+1,0 

2220 NEXT I 

2230 RETURN 

2250 REM ROUTINE:STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PG* 

2270 GOSUB 2000 
2280 POKE VI+32,15 
2290 POKE VI+33,15 

2300 print "rana»"; 

2310 PRINT TAB<6>;"r-V 

2320 FOR 1=1 TO 5 

2330 PRINT TAB<6);"I 1“ 

2340 NEXT I 

2350 PRINT TfìB<6)/ " t — ■ --- - . - —.j» 

2360 PRINT TRB<6>;"WrattBWIIDIGITA 3RETURNS PER PROSEGUIRE" 

2370 PRINT "SHIfflBr 
2380 FOR 1=1 TO 5 
2390 PRINT TAB<?>; 

2400 FOR J=1 TO 26 
2410 PRINT ."raa ; 

2420 NEXT J 
2430 PRINT 
2440 NEXT I 

2460 REM ORA SCRIVO IL TITOLO 

2480 PRINT "*KBM^' , ,TRB<<40-LEN<P6*))/2),"»*",PG* 

2490 GET Z9* 

2500 IF Z9*OCHR*< 13) THEN GOTO 2490 
2510 PRINT "Zia", 

2520 RETURN 
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Disegna il tuo sprite 


Il CBM-64 consente l’uso di elementi grafici definiti dall’utente (sprites). 
Il disegno degli sprites è una delle operazioni più lunghe e noiose: è in¬ 
fatti necessario determinare manualmente i valori dei 64 bytes utilizzati 
per ciascuno di essi, trasformare i 64 gruppi di otto bits in 64 caratteri 
da introdurre nel programma mediante le istruzioni DATA e, infine, far¬ 
li leggere al programma. 

Risulterà interessante a questo scopo realizzare un programma di utili¬ 
tà che consenta di definire facilmente gli sprites, disegnandoli diretta- 
mente sul video per poi memorizzarli eventualmente in un file. 


Analisi del 
problema 


Per facilitare il lavoro di tracciamento dello sprite, sarà consentito al¬ 
l’utente di disegnarlo in una porzione del video ingrandita (griglia); con¬ 
temporaneamente sarà utilizzata un'altra parte del video per visualizza¬ 
re lo sprite in dimensioni naturali. 

Per disegnare lo sprite nella griglia più grande, l’utente potrà spostare 
il cursore e accendere o spegnere la casella in cui si trova il cursore stes¬ 
so. Gli spostamenti del cursore saranno possibili attivando i tasti CRSR, 
mentre l’accensione e lo spegnimento della casella saranno realizzati at¬ 
traverso altri due tasti, ad esempio A ed S. 

Sarà inoltre necessario prevedere i comandi di gestione, come ad esem¬ 
pio la memorizzazione dello sprite, il suo richiamo in memoria per mo¬ 
dificarlo cd infine l’uscita dal programma. Poiché questi comandi sono 
numerosi, sarà opportuno raggrupparli in un menù, che potrà essere ri¬ 
chiamato in un momento qualsiasi dell’esecuzione. 

Il programma avrà la struttura tipica degli editor (programmi per la ge¬ 
stione di testi, immagini, ecc.) per cui, dopo aver visualizzato le due gri¬ 
glie, entrerà in un ciclo costituente il corpo del programma stesso, in cui 
leggerà un comando qualunque, verificherà se il comando è legale, lo ese¬ 
guirà e tornerà a leggere un nuovo comando da tastiera. 

I comandi potranno essere di diversi tipi: 

■ spostamento del cursore 

■ accensione o spegnimento di una casella 

■ cancellazione di una riga o di una colonna della griglia 

■ memorizzazione dello sprite su un file esterno 

■ caricamento di uno sprite da un file esterno 

■ visualizzazione del menù comandi. 

La realizzazione del programma dovrà inoltre prevedere alcuni control¬ 
li, quale ad esempio quello che serve per evitare lo spostamento del cur¬ 
sore fuori della griglia. Sarà infine necessario prevedere, durante il pas¬ 
saggio dal menù comandi alle due griglie, un «rinfresco» del video, per 
ridisegnare lo sprite su entrambe le griglie. 
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Diagrammi 
di flusso 


II programma comincia 
con l’inizializzazione delle 
costanti e con la 
visualizzazione del titolo. 
Successivamente definisce 
la funzione FNA, che ha il 
compito di verificare se un 
determinato bit dello sprite 
è acceso o spento, e la 
funzione FNB, utilizzata 
per calcolare l'indirizzo di 
memoria dei punti 
(coordinate X e Y) che 
serviranno per visualizzare 
lo sprite. Il blocco 
successivo cancella la 
griglia più piccola, 
riservata alla definizione 
dello sprite, e la riaccende 
dopo aver messo a 0 tutti i 
bits. Il programma deve poi 
acquisire, tramite 
l'istruzione GET, un 
comando fornitogli da 
tastiera e confrontarlo con 
un certo numero di 
istruzioni, per stabilire ciò 
che deve essere eseguito: 

— CLR: cancellare lo 
schermo; 

— HOME: posizionare il 
cursore nella prima casella 
in alto a sinistra; 





Inizializzazione 


* 


FNB è una funzione che 
calcola l'indirizzo 
nella memoria del colore 
del punto di coordinate X.Y 


La maschera video è 
costituita dalle due griglie 
(una grande ed una più 
piccola) che conterranno poi 
lo sprite disegnato 


Z Visualizza 

titolo 








Z Visualizza la 

maschera video 



FNA è una funzione di tipo 
booleano (può assumere solo 
2 valori)'; varrà 0 se il bit di 
coordinate X.Y dello sprite è 
spento, varrà 1 nel caso 
contrario 





* 


< È stato digitato 
CLR? 

^ NO 



Cancella 
il contenuto 
della griglia 
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— CRSR: eseguire gli 
spostamenti del cursore; 

— f4: posizionare il cursore 
all’inizio della riga 
corrente; 

— f5: posizionare il cursore 
alla fine della riga corrente; 

— fi: visualizzare il menù 
comandi; 

— A: visualizzare un 
rettangolo verde nella 
griglia grande e accendere 
il punto corrispondente 
nella griglia piccola; 

— S. - cancellare un 
rettangolo già tracciato; 

— f6: cancellare la riga su 
cui è posizionato il cursore; 

— f7: cancellare la colonna 
su cui è posizionato il 
cursore; 

— f2: memorizzare lo sprite 
su supporto magnetico; 

— f3: caricare lo sprite dal 
supporto magnetico; 

— f8: terminare 
l'esecuzione del 
programma. 

Se infine il codice immesso 
non rientra fra quelli 
previsti, il programma deve 
restare in attesa di un 
comando legale. 



© 


È stato digitato 
CRSR? 


^ NO 


È stato digitato 
f4? 


4» NO 


> SI Muove il 

cursore 

> SI Posiziona il cursore 
ad inizio riga 


È stato digitato 
f5? 


4" NO 


> SI Posiziona il cursore 

'/ a fine riga J / 


E stato digitato 
fi? 


^ NO 


E stato digitato 
A? 


> SI Visualizza 

/ menù comandi [ 

> ci / Visualizza 

^ / il carattere 

nella posizione 
del cursore 


NO 


È stato digitato 
S? 


NO 

È stato digitato 
f6? 


> SI, Cancella il carattere 
nella posizione 
del cursore 


Cancella 
riga corrente J 


dalla griglia 


NO 


È stato digitato 
f7? 


^ NO 


È stato digitato 
f2? 


4r NO 


> SI, Cancella la colonna 
corrente dalla 

. . griglia 

> SI Salva lo sprite 

J su supporto 
magnetico 


È stato digitato 
f3? 


"V NO 

È stato digitato 
f8? 


> S|, Carica lo sprite 

da supporto 
magnetico 

> 


SI 
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Il programma 


Dopo la visualizzazione del 
titolo e l'inizializzazione 
delle costanti (linee 280, 

290), le linee 310, 360 
definiscono due funzioni: la 

FNA, di tipo booleano, e la 

FNB, che calcola l'indirizzo 
nella mappa dei colori (MC) 
corrispondente alla 
posizione del cursore sullo 
schermo. La linea 380 chiama 
la routine 1600, che svolge 
le seguenti operazioni: 

— inizializza il circuito video, 
i puntatori allo sprite e i 
registri di memoria di 
posizione (linee 1600+1620); 

— cancella eventuali sprites 
rimasti in memoria da 
un'esecuzione precedente 
(linea 1640); 

— stabilisce la lunghezza 
(linea 1660) e la larghezza 
(linea 1700) dello sprite; 

— lo rappresenta in un solo 
colore (linea 1680 e 

linea 1740); 

— lo carica nel tredicesimo 
blocco della memoria 
(linea 1760). 

Tutte queste assegnazioni 
sono effettuate con 
istruzioni POKE che 
utilizzano la costante VI, 
contenente l'indirizzo del 
registro di gestione degli 
sprites: sommando ogni 
volta a VI un determinato 
valore si accede 
all’indirizzo del registro di 
gestione desiderato. Ad 
esempio, POKE VI+39,5 
permette di accedere al 
registro di memoria cui è 
demandata l'assegnazione 
del colore dello sprite 
(VI+39), imponendo il 
colore 5 (verde). 

La linea 400 chiama la 
routine 1090, che cancella il 
contenuto della zona 
riservata allo sprite, mentre 


100 REM ********************* 
110 REM DISEGNA IL TUO SPRITE 
120 REM IM ******************* 
140 REM VARIABILI UTILIZZATE 


160 REM I,J 
170 REM BV 
180 REM BI 
190 REM•ST 
200 REM X,Y 
210 REM XI,VI 
220 REM C* 
230 REM CO 
240 REM A 
250 REM FG 


: CONTATORI DI CICLO 

: POSIZIONE DEL BYTE CONTENENTE IL BIT DA ACCENDERE 0 SPEGNERE 
: POSIZIONE NEL BYTE DEL BIT DA ACCENDERE 0 SPEGNERE 
: STATO DEL C64 DURANTE LA LETTURA DEI FILES 
: COORDINATE DEL PUNTO DA ACCENDERE SU VIDEO 
; VARIABILI DI COMODO 
: COMANDO LETTO DA TASTIERA 

: COLORE DEL PUNTO DA VISUALIZZARE; VERDE 0 GRIGIO 0 GIALLO 
: VARIABILE PER L'INGRESSO DATI DA DISCO 

: =1 SE IL CURSORE E' IN ULTIMA COLONNA <LA PIU' A DESTRA) 

270 REM PRESENTAZIONE PROGRAMMA E INIZIALIZZAZIONE COSTANTI 
280 PG*="DISEGNA IL TUO SPRITE" 

290 GOSUB 3760 

300 REM DEFINISCO LA FUNZIONE FNR DI TIPO BOOLEANO 

310 REM QUESTA FUNZIONE VALE 0 SE IL BIT DELLO SPRITE CON COORDINATE X,Y E' 
315 REM SPENTO, VALE 1 IN CASO CONTRARIO 

320 DEF FNA<Z)=PEEK<832+<X-l)*3+INT<<Y-l)/8>) AND 2t<8-Y+INT<<Y-l>/8>*8> 

340 REM DEFINISCO UNA FUNZIONE FNB CHE CALCOLA L'INDIRIZZO IN MEMORIA COLORE 
350 REM DEL PUNTO DI COORDINATE X,Y 
360 DEF FNB<Z)=MC+40*X+Y 

370 REM INIZIRLIZZO CIRCUITO VIDEO E PUNTATORI ALLO SPRITE 
380 GOSUB 1600 

390 REM CANCELLO L'AREA RISERVATA ALLO SPRITE 
400 GOSUB 1090 

410 REM VISUALIZZO LO SPRITE NEI DUE FORMATI PREVISTI 

420 GOSUB 1790 

430 REM ACCENDO LO SPRITE 

440 POKE VI+21,1 

450 REM INIZIA IL PROGRAMMA 

460 REM INIZIRLIZZO COORDINATE CURSORE 

470 X=1-Y=l 

480 REM DISEGNO IL CURSORE NEL PUNTO DI COORDINATE X,Y 

490 POKE FNB<Z),7 

500 REM LEGGO COMANDI 

510 GET C* : IF C*="" THEN 510 

520 REM ESEGUO I COMRNDI 

530 REM CLR SPRITE 

540 IF C>*",7' THEN GOSUB 1090: GOSUB 2240 
550 REM HOME 
560 IF C*="«" 

570 REM DOWN 
580 IF C*="»" 

590 REM UP 

600 IF C*-"rr THEN GOSUB 2330 
610 REM RIGHT 
620 IF c*=”ir 
630 REM LEFT 

640 IF C*="ll" THEN GOSUB 2430 
650 REM F4CURSORE A INIZIO LINEA 
660 IF C*-"*" THEN GOSUB 2480 
670 REM F5 : CURSORE A FINE LINEA 
680 IF C*='TI" THEN GOSUB 2520 
690 REM Fi:HELP 

700 IF C*»"B" THEN GOSUB 890:GOSUB 1790:GOSUB 2020:GOTO 470 
710 REM ACCENDE IL PUNTO 
720 IF C*«"A" THEN GOSUB 2580 
730 REM SPEGNE IL PUNTO 
740 IF C*»"S" THEN GOSUB 2700 
750 REM F6:CANCELLA LA LINEA CORRENTE 
760 IF C*="JI" THEN GOSUB 2800 
770 REM F7:CANCELLA LA COLONNA CORRENTE 
780 IF C$="lr THEN GOSUB 2880 
790 REM F2:SALVA LO SPRITE SU DISCO 
800 IF C*="ST THEN GOSUB 1160 
810 REM F3:CARICA LO SPRITE DA DISCO 
820 IF C*="S" THEN GOSUB 1300:GOSUB 2020:GOTO 470 
830 REM F8:TERMINA LA SESSIONE 
840 IF C*="*" THEN GOTO 1540 
850 GOTO 490 

860 REM INIZIANO LE ROUTINES 
878 REM ROUTINE:MENU DI HELP 
880 REM CAMBIO COLORE SFONDO 
890 POKE VI+32,5 : P0KE VI+33,5 
900 PRINT “UT; 

910 PRINT TAB(14>;"MENU COMANDI" 

920 PRINT "HBI COMANDI: CLR, HOME E I TASTI" 

930 PRINT "DI CONTROLLO CURSORE, HANNO ” 

940 PRINT "SIGNIFICATO INVARIATO.»" 

950 PRINT "FI",TABC4);"VISUALIZZA QUESTA MASCHERA" 

960 PRINT "F2";TAB<4>;"SALVA LO SPRITE SU DISCO" 

970 PRINT “F3";TAB(4>;"LOAD LO SPRITE DA DISCO" 

980 PRINT "F4";TRB<4>;"CURSORE A INIZIO LINEA" 

990 PRINT "F5";TRB<4>;"CURSORE A FINE LINEA' 

1000 PRINT "F6",TAB<4>,"CANCELLA LA LINEA CORRENTE" 

1010 PRINT "F7"JTAB<4);"CANCELLA LA COLONNA CORRENTE" 

1020 PRINT "A8":TAB<4),"TERMINA LA SESSIONE" 


THEN GOSUB 2240 
THEN GOSUB 2280 


THEN GOSUB 2380 
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la 420 chiama un’altra 
routine, la 1790, che 
cancella tutto lo schermo, 
assegna allo sfondo il 
colore nero (linea 1810), 
disegna la griglia più 
piccola in grigio (linee 
1830+1850), disegna la 
griglia più grande con il 
suo contorno, ne numera 
due lati (linee 1870+1920), e 
infine visualizza un’offerta 
di aiuto scritta in nero su 
sfondo rosso (linee 
1940+1990). 

Le linee 470+490 
posizionano il cursore nella 
prima casella in alto a 
sinistra dello sprite. Alla 
linea 510 il C-64 si pone in 
attesa di un comando da 
tastiera. Le linee 540+850 
interpretano i comandi 
immessi da tastiera, 
chiamando, per ogni 
comando ricevuto, la 
routine che gestisce 
l'esecuzione di tale 
comando. In particolare il 
tasto CLR (linea 540) 
cancella il video (routine 
1090) e posiziona il cursore 
sul primo carattere in alto 
a sinistra (routine 2240); 
il tasto HOME (linea 560) fa 
tornare il cursore sul primo 
carattere in alto a sinistra 
(routine 2240), il tasto 
CRSR1 (linea 600) lo sposta 
di una riga in alto (routine 
2330), il tasto CRSRl di una 
riga in basso (routine 2280), 
il tasto CRSR-* (linea 620) 
di una posizione verso 
destra (routine 2380), 
il tasto CRSR<- (linea 640) 
di una posizione verso 
sinistra (routine 2430), il 
tasto f4 (linea 660) lo 
posiziona all'inizio della 
riga corrente (routine 2480) 
e il tasto f5 (linea 680) alla 
fine della riga corrente 
(routine 2520). 

Il tasto fi (linea 700) che 
visualizza il menù 
comandi, merita una 
trattazione più dettagliata, 


1030 PRINT “H";TfiB(4);“ACCENDE IL PUNTO SOTTO IL CURSORE" 
1040 PRINT “S'‘.THB<4); “SPEGNE IL PUNTO SOTTO IL CURSORE" 
1050 PRINT "K8 PREMI UN TASTO" 

1060 OET C*-IF C*='"’ THEN 1060 
1070 RETURN 

1080 REM ROUTINE-CANCELLA SPRITE 
1090 FOR 1=0 TO 62 
1100 POKE 832+1,0 
1110 NEXT I 

1120 REM CANCELLO LA GRIGLIA 
1130 GOSUB 1790 
1140 RETURN 

1150 REM ROUTINE ; SALVA SPRITE SU DISCO 


1160 print 11 «nnannimiun" ,spc( 27), “rra save ■■ 

1170 PRINT SPC<27>; “Sia NOME SPRITE?ff!MlliMiHBIH", 


1180 ZL=10 ; GOSUB 3060 

1190 IF IN*="" THEN GOTO 1180 

1200 OPEN 5,8,5, “80 : "+IN$+“,S,W" 

1210 FOR 1=0 TO 62 
1220 PRINT#5,PEEK(832+I> 

1230 NEXT I 
1240 CLOSE 5 

1250 REM CANCELLO LA SCRITTA PRECEDENTE 
1260 PRINT "WirajDìIiaiSaKfiS'SSPCCEF);''* 

1270 PRINT SPC<27>;“ WflMIIIIIIIIII 

1280 RETURN 

1290 REM ROUTINE : CARICA LO SPRITE DA DISCO 

1300 print ,SPCi27yi ":na load 

1310 PRINT SPCC27), "fna NOME SPRITE?BSaiM«llMH«r'; 

1320 ZL=10:GOSUB 3060 

1330 IF IN*=““ THEN GOTO 1320 

1340 OPEN 5,8,5,IN*+",S,R" 

1350 1=0 
1360 INPUTP5,A 

1370 IF (ST=0) OR <ST=64) THEN GOTO 1450 

1380 PRINT "riSRTTENZIONE : ERRORE LETTURA FILE IN$J “B“ 

1390 OPEN 15,8,15,"I" 

1400 CLOSE 15 
1410 CLOSE 5 

1420 FOR 1=1 TO 1000•NEXT I 

1430 GOSUB 1790 

1440 RETURN 

1450 POKE 832+1,A 

1460 I=I+'l 

1470 IF I<=62 THEN GOTO 1360 
1480 CLOSE 5 

1490 REM CANCELLO LA SCRITTA PRECEDENTE 
1500 PRINT 

1518 PRINT SPC<27>;" «'immillili 

1520 RETURN 

1530 REM FINE SESSIONE DI LAVORO 

1540 POKE VI+21,0 

1545 POKE VI+32,14 

1550 POKE VI+33,6 

1560 PRINT “.-H"; 

1570 END 

1580 REM INIZIALIZZO VIC-II E PUNTATORI ALLO SPRITE 

1590 REM REGISTRI POSIZIONE SPRITE #1 

1600 POKE VI,20 

1610 POKE VI+1,53 

1620 POKE VI+16,1 

1630 REM SPENGO LO SPRITE 

1648 POKE VI+21,0 

1650 REM ESPANSIONE VERTICALE 

1660 POKE VI+23,1 

1670 REM NON E" MULTICOLORE 

1680 POKE VI+28,0 

1690 REM ESPANSIONE ORIZZONTALE 

1700 POKE VI+29,1 

1710 REM LO SPRITE HA PRIORITÀ" PIU" ELEVATA DELLO SFONDO 

1720 POKE VI+27,0 

1730 REM LO SPRITE E" VERDE 

1740 POKE VI+39,5 

1750 REM MEMORIZZO LO SPRITE NEL 13-MO BLOCCO DA 64 BVTES 
1760 POKE 2040,13 
1770 RETURN 

1780 REM VISUALIZZO LO SPRITE NEI DUE FORMATI PREVISTI 
1790 PRINT "71"; 

1800 REM COLORE SFONDO IN NERO 
1810 POKE VI+32,0 : POKE VI+33,0 

1820 REM DISEGNO IL CONTORNO DELLO SPRITE PICCOLO 
1830 FOR 1 = 1 TO 6 

1848 print spc<3i>;“:sa ■" 

1350 NEXT I 

1860 REM DISEGNO LA GRIGLIA GRANDE 
1870 PRINT "H", 

1380 PRINT "SO 765432107654321076543210 " 

1890 FOR 1=1 TO 21 

1900 PRINT "!*T";RIGHT*<STR*a-INT(I/l0>*10),l); "Il 
1910 NEXT I 
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in quanto è gestito da una 
serie di routines: la 890 
cambia il colore dello 
sfondo in verde, visualizza 
il menù e rimane 
in attesa di un comando 
inviatogli da un qualsiasi 
tasto per tornare alle 
griglie (linea 1060). La 1790 
gestisce la visualizzazione 
delle maschere, come già 
descritto alla linea 400. La 
2020, visualizzata la scritta 
ATTENDERE in nero su 
fondo bianco, riporta lo 
sprite eventualmente 
presente sulla griglia 
piccola in quella grande. 

Ciò si esegue tramite due 
cicli FOR che scandiscono 
ogni punto della griglia 
piccola e verificano, 
tramite la funzione FNA, se 
tale bit è acceso o spento; 
qualora si trovi il bit 
acceso lo si riporta in 
verde sulla griglia grande, 
mentre se lo si trova 
spento lo si riporla in 
grigio (linee 2050 + 2130). 
Dopo il doppio ciclo si 
cancella il messaggio 
ATTENDERE (linea 2150) e, 
infine, si posiziona il cursore 
in alto a sinistra. Il tasto A 
(linea 720) sposta il cursore 
verso destra accendendo in 
colore verde il carattere 
precedentemente occupato 
dal cursore (routine 2580, 
che individua il byte e il 
bit corrispondenti al punto 
che bisogna accendere nella 
griglia piccola, linee 
2580+ 2630). Il tasto S (linea 
740) cancella il carattere su 
cui è posizionato il cursore 
(routine 2700, che opera 
similmente alla 2580, con la 
differenza che spegne il bit 
interessato anziché 
accenderlo). Il tasto f6 
(linea 760) cancella l'intera 
riga su cui è posizionato il 
cursore (routine 2800, che 
dopo aver cancellato tutti i 
caratteri della riga chiama 
la 2700, che spegne i punti 


1920 PRINT "«1 

1930 REM VISUALIZZO UNA SCRITTA DI AIUTO 
1940 PRINT “a”', 

1950 FOR 1=1 TO 24 
1960 PRINT 
1970 NEXT I 

1980 REM SONO POSIZIONATO SUL'ULTIMA RIGA 

1990 PRINT " :«PER UN AIUTO PREMI IL TASTO liFl"; 

2000 RETURN 

2010 REM ROUTINE CHE COPIA LO SPRITE SULLA GRIGLIA 

2020 PRINT “«" PRINT "««sHWKSifflBWatìUStì'';SPC(27); " SOTTENDERE" 

2030 REM VISUALIZZO UN MESSAGGIO DI ATTESA 

2040 REM SE IL BIT DI COORDINATE X,V E' ACCESO-DISEGNO IN VERDE IL CARATTERE 

2050 C0=15 

2060 FOR X=1 TO 21 

2070 FOR V=1 TO 24 

2080 REM SE IL BIT DI COORDINATE X-Y E' ACCESO-DISEGNO IN VERDE IL CARATTERE 
2090 REM RELATIVO SULLA GRIGLIA, IN CASO CONTRARIO LO DISEGNO IN GRIGIO 
2100 C0=15 

2110 IF FNA<Z»0 THEN C0=5 
2120 POKE FNBCZ)-CO 
2130 NEXT V-X 

2140 REM CANCELLO IL MESSAGGIO PRECEDENTE 

2150 PRINT :: cMHi'MflWWfiUNiiSi'ffi 1 ' SPC(27)."“ " 

2160 RETURN 

2170 REM ROUTINE CHE RIPRISTINA IL CARATTERE SOTTO IL CURSORE 
2180 CO-15 

2190 IF FNA(Z»0 THEN C0=5 
2200 POKE FNB(Z)-CO 
2210 RETURN 

2220 REM ROUTINE CHE ESEGUE L"OPERAZIONE HOME 
2230 REM RIPRISTINO IL CARATTERE SOTTO IL CURSORE 
2240 GOSUB 2180 
2250 X=1 : Y=1 
2260 RETURN 

2270 REM ROUTINE CHE SPOSTA IL CURSORE IN BASSO DI UNA LINEA 
2280 GOSUB 2180 
2290 X=X+1 

2300 IF X>21 THEN X=21 
2310 RETURN 

2320 REM ROUTINE CHE SPOSTA IL CURSORE IN ALTO DI UNA LINEA 
2330 GOSUB 2180 
2340 X=X-1 

2350 IF X<1 THEN X=1 
2360 RETURN 

2370 REM ROUTINE CHE SPOSTA IL CURSORE A DESTRA 
2380 GOSUB 2180 
2390 V=V+1 

2400 IF V>24 THEN V=24 
2410 RETURN 

2420 REM ROUTINE CHE SPOSTA IL OJRSORE A SINISTRA 
2430 GOSUB 2180 
2440 Y=Y-1 

2450 IF V<1 THEN Y=1 
2460 RETURN 

2470 REM ROUTINE CHE SPOSTA IL CURSORE A INIZIO LINEA 
2480 GOSUB 2180 
2490 V=1 
2500 RETURN 

2510 REM ROUTINE CHE SPOSTA IL CURSORE A. FINE LINEA 
2520 GOSUB 2180 
2530 Y=24 
2540 RETURN 

2550 REM ROUTINE CHE ACCENDE IL PUNTO SOTTO IL CURSORE E SPOSTA IL CURSORE A 
2560 REM DESTRA (SE E' POSSIBILE). 

2570 REM ACCENDO IL BIT NELLA ZONA DI MEMORIA CONTENENTE LO SPRITE 
2580 BY=(X-l)*3+INT((V-l)/8> 

2590 REM HO CALCOLATO IL BYTE INTERESSATO 

2600 REM CALCOLO IL BIT INTERESSATO 

2610 BI=8-Y+INT((Y-l)/8)*8 

2620 REM ACCENDO IL PUNTO 

2630 POKE 832+BY,PEEK(832+BY) OR 2TBI 

2640 REM CHIAMO LA ROUTINE CHE SPOSTA IL CURSORE A DESTRA 
2650 GOSUB 2380 
2660 RETURN 

2670 REM ROUTINE CHE SPEGNE IL PUNTO SOTTO IL CURSORE E SPOSTA IL CURSORE A 
2630 REM DESTRA (SE E" POSSIBILE). 

2690 REM SPENGO IL BIT NELLA ZONA DI MEMORIA CONTENENTE LO SPRITE 
2700 BY=(X-1 )#3+INT<(Y-l)/8) 

2710 REM HO CALCOLATO IL BYTE INTERESSATO 
2720 REM CALCOLO IL BIT INTERESSATO 
2730 BI=8-Y+INT((Y-l)/8)*8 
2740 REM SPENGO IL PUNTO 

2750 POKE 832+BY,PEEK(332+BY> AND (255-2TBI) 

2760 REM CHIAMO LA ROUTINE CHE SPOSTA IL CURSORE A DESTRA 
2770 GOSUB 2380 
2780 RETURN 

2790 REM ROUTINE CHE CANCELLA LA LINEA CORRENTE 
2800 FOR YI=1 TO 24 
2810 Y=V1 
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corrispondenti nella griglia 
piccola). Il tasto f7 (linea 
780) cancella la colonna 
dove è posizionato il 
cursore (routine 2280, che 
cancella tutti i caratteri 
avvalendosi delle 
coordinate X anziché delle 
coordinate Y utilizzate 
nella routine 2800). Il tasto 
f2 (linea 800) memorizza lo 
sprite disegnato su supporto 
magnetico utilizzando la 
routine 1160, che svolge le 
seguenti operazioni: 
visualizza i messaggi SA VE 
e NOME SPRITE?, 
stabilisce tramite le 
costanti ZL la lunghezza 
massima di 10 caratteri 
alfanumerici per il nome 
che l'utente può attribuire 
allo sprite, chiama la 
routine 3060, e verifica che 
sia stato inserito almeno 
un carattere. La routine 
3060, chiamata dalla 1160 
(linea 1180), cancella la 
zona dello schermo dove 
sarà inserito il nome dello 
sprite, legge i caratteri 
inseriti (linea 3120) facendo 
lampeggiare il cursore 
(linee 3160, 3170) e 
memorizza i caratteri in 
una stringa alfanumerica, 
controllando la lunghezza 
di quest'ultima. I caratteri 
non alfanumerici non sono 
accettati (linea 3260), ad 
eccezione del DELETE e del 
RETURN. Il tasto f3 (linea 
820) richiama da supporto 
magnetico l'eventuale sprite 
precedentemente 
memorizzato, utilizzando 
due routines: la 1300, che 
visualizza i messaggi LOAD 
e NOME SPRITE?, e la 2020, 
che visualizza il messaggio 
ATTENDERE, esegue la 
scansione dei punti come 
precedentemente illustrato 
e riposiziona il cursore in 
alto a sinistra. Il tasto f8 
(linea 830) fa terminare 
l'esecuzione del programma 
chiamando la linea 1540. 


2820 REM CANCELLO IL CAROTIERE 

2838 GOSUB 2706 

2840 NEXT VI 

2850 V=1 

2860 RETURN 

2870 REM CHE CANCELLO LA COLONNA CORRENTE 
2880 FG=0 : IF V=24 THEN FG=1 
2890 FOR Xl = l TO 21 
2900 X=X1 

2910 REM CANCELLO IL CARATTERE 
2920 GOSUB 2700 

2930 REM PORTO IL CURSORE A SINISTRA DI UN POSTO 
2940 IF FG=0 THEN Y=Y-1 
2950 NEXT XI 
2960 RETURN ■ 

2980 REM ROUTINE CHE GESTSCE L'INPUT DI UNO STRINGA ALFANUMERICA. 

2990 REM LE VARIABILI UTILIZZATE S0N0Z6,Z?,Z8,Z9,Z8*, IN* 

3000 REM IN INGRESSO VUOLE LA LUNGHEZ2A MASSIMA ZL 
3010 REM DELLA STRINGA DA LEGGERE 

3020 REM IN USCITA DA' IN IN* LA STRINGA LETTA E IN Z9 LA SUA LUNGHEZZA 

3040 REM CANCELLO LA ZONA DI SCHERMO IN CUI VERRO' DIGITATA LA STRINGA 

3060 FOR Z8=l TO ZL: PRINT " NEXT Z8 

3070 FOR Z8=l TO ZL: PRJNT "II", NEXT 28 

3080 IN*="":Z?=TI 

3100 REM LEGGO UN CARATTERE 

3120 GET Z8$:IF Z8$<>"" THEN 3220 

3140 REM ACCENSIONE E SPEGNIMENTO DEL CURSORE 

3160 IF Z7CTI AND N0TCZ6) THEN PRINT "Sai"; Z6=N0T<Z6> :Z?=TI+15 

3170 IF Z7CTI AND Z6 THEN PRINT " II" ; 26=N0KZ6> :Z7=TI + 15 

3180 GOTO 3120 

3200 REM E' STATO DIGITATO UN CARATTERE 
3220 Z8=ASC(Z8$>:Z3=LEN(IN$) 

3240 REM SE NON E' UN CARATTERE ALFANUMERICO, DEVE ESSERE UN RETURN 0 DELETE 

3260 IF N0T<<Z8>47 AND Z8<58> OR <Z8>64 AND 28<91)> THEN GOTO 3330 

3280 REM CONTROLLO CHE NON SIA STATA SUPERATA LA LUNGHEZZA MASSIMA 

3300 IF Z9=ZL THEN GOTO 3120 

3320 REM LO AGGIUNGO ALLA STRINGA IN* 

3340 IN*=IN*+Z8* : PRINT Z8$;:G0T0 3120 

3360 REM SE E' UN RETURN, HO TERMINATO LA LETTURA 

3380 IF Z8=13 THEN PRINT " II", :RETURN 

3400 REM SE ,E' DELETE, CANCELLO IN IN* E SUL VIDEO L' ULTIMO CARATTERE DIGITATO 
3420 IF Z8=20 AND Z9>0 THEN IN*=LEFT*<IN*,Z9-1>■PRINT " IBI*;:GOTO 3120 
3430 GOTO 3120 

3450 REM ROUTINE DI INIZIALIZZAZIONE COSTANTI 

3470 REM CIRCUITO VIDEO 

3490 VI=53248 

3510 REM CIRCUITO SUONO 

3530 SI=54272 

3550 REM MEMORIA VIDEO 

3570 MV=1024 

3590 REM MEMORIA COLORE 

3610 MC=55296 

3630 REM COSTANTI DI USO COMUNE 
3658 ZL=9 

3670 REM INIZIALIZZAZIONE CHIP SUONO 

3690 FOR 1=0 TO 24 

3700 POKE SI+1,0 

3710 NEXT I 

3720 RETURN 

3740 REM ROUTINE CHE STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PG* 

3760 GOSUB 3490 
3770 POKE VI+32,15 
3780 POKE VI+33,15 
3790 PRINT "ZOOM"; 

3800 PRINT TABC6); " r-1" 

3810 FOR 1=1 TO 5 

3828 PRINT TAB(6);“ I I" 

3838 NEXT I 

3840 PRINT TABC6); " 1 - 

3850 PRINT TABC6); "aQfflIISiBttIMBIGITR SRETURN5 PER PROSEGUIRE" 

3860 PRINT "MfflKM" 

3870 FOR 1 = 1 TO 5 
3880 PRINT TAB<7>; 

3890 FOR J=1 TO 26 
3900 PRINT "SS 
3910 NEXT J 
3920 PRINT 
3330 NEXT I 

3950 REM ORA SCRIVO IL TITOLO 

3970 PRINT "S»®««®Mr,TAB<<40-LEN<PG*>>/2>;"SW' , jPG* 

3980 GET Z9* 

3990 IF Z9*OCHR*< 13} THEN GOTO 3980 
400Ó PRINT "3X; 

4010 RETURN 
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Grafica tridimensionale 

Questo programma consentirà di disegnare il grafico di una funzione di 
due variabili. Il disegno sembrerà una figura tridimensionale, sebbene 
sia visualizzato su di un piano. Per rappresentare il grafico di una fun¬ 
zione è necessario disporre di un numero finito di valori che la funzione 
assume in un dato intervallo. A questo scopo l'utente dovrà inserire i va¬ 
lori che determinano il campo di definizione della funzione, cioè il mas¬ 
simo e il minimo valore che si desidera assegnare alle due variabili indi- 
pendenti. Sarà necessario fornire anche il numero dei punti che si vo¬ 
gliono prendere in esame, il che permetterà di ottenere una maggiore o 
minore definizione del tracciato. 

Molto interessante è la possibilità di disegnare più grafici di una stessa 
funzione considerata in diversi intervalli, che permetterà di confrontare 
i differenti andamenti che la funzione assume a seconda dell’intervallo 
dei valori assegnati alle variabili indipendenti. 


Analisi del 
problema 




LA ruNZIONC tf> VIRUALIZXARC C' 
SCRITTA AULA LINEA 330. 

DtÒ.I TARE 


s- re» Mcc>irtCARiAj 

C' RE» CONTINUARE» 








Ogni volta che ci troviamo a dover disegnare una figura tridimensionale 
su un piano ricorriamo alle regole della prospettiva, un artificio che per¬ 
mette di ingannare l’occhio di un osservatore dandogli l'impressione di 
vedere una figura tridimensionale dove realmente ne esiste solo una bi¬ 
dimensionale. Per tracciare grafici che abbiano una buona prospettiva 
anche il nostro programma ricorrerà ad un artificio simile. 

Per poter disegnare il grafico il programma dovrà calcolare i valori che 
la funzione assume tra i suoi estremi, memorizzarli, e visualizzare il gra¬ 
fico solo dopo aver utilizzato l’artificio che permette di ottenere l'effetto 
desiderato. Il grafico sarà visualizzato disegnando le cosiddette «curve 
di livello»; sarà quindi necessaria la disponibilità di un’area di memoria 
dove andare a leggere i valori che serviranno a tracciare il disegno, me¬ 
morizzati in precedenza. Per disegnare ogni curva ricorreremo ad una 
approssimazione ottenuta tramite una spezzata. 

L’operazione che ci permetterà di ottenere l’effetto tridimensionale con¬ 
siste nel normalizzare rispetto alla terza due delle tre coordinate che in¬ 
dividuano un punto nello spazio. Per poter effettuare la normalizzazio¬ 
ne, il programma calcola le coordinate del punto interessato e ne divide 
i valori per il valore della X. Ciò permetterà di disegnare la figura con 
un buon effetto prospettico, avendo ottenuto le due coordinate dei punti 
su un piano in funzione della terza, che è stata eliminata. 

Per memorizzare i dati riguardanti i punti dovremo utilizzare una ma¬ 
trice, che sarà stata dimensionata in base al numero dei punti che si vo¬ 
gliono prendere in esame. Quindi, tanto più alto è il grado di definizione 
che vogliamo per la nostra figura, tanto più grande sarà la nostra matri¬ 
ce, con l’avvertenza però di non inserire cifre eccessivamente grandi per 
i punti da prendere in esame, poiché la memoria del CBM-64 non sareb¬ 
be in grado di contenere l’intera matrice. 

A seconda degli intervalli di definizione assegnati alle due variabili indi- 
pendenti della funzione, è probabile che lo schermo non possa contene¬ 
re l'intero grafico, oppure che lo realizzi nella sola parte centrale, non 
consentendone una buona visualizzazione. Per ovviare a questo inconve¬ 
niente saranno calcolati appositi fattori di scala che consentiranno di di¬ 
segnare il grafico sempre nella massima espansione consentita dal video. 
Per ottenere un buon risultato grafico utilizzeremo anche in questa ap¬ 
plicazione la bit-map, e per tracciare i segmenti che compongono la figu¬ 
ra distingueremo tre possibili casi: che il segmento risulti parallelo al¬ 
l’asse delle ascisse, che risulti parallelo all’asse delle ordinate o che non 
sia parallelo né all’uno né all’altro. Ciò fatto si procederà all’accensione 
dei punti del segmento, come già si è visto in precedenza (pag. 96). 
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Diagrammi 
di flusso 


11 programma esegue in 
primo luogo l'inizializzazione 
delle costanti del C-64 e la 
stampa del titolo. 

Quindi visualizza sullo 
schermo un messaggio in 
cui chiede se si vuole 
modificare la funzione, 
inserita in una linea del 
programma. Qualora si 
cambi la funzione 
bisognerà rilanciare di 
nuovo l'esecuzione del 
programma con il comando 
RUN. 

Si passa poi a verificare se 
la base del programma è 
stata spostata alla 
locazione 16384; in caso 
negativo si visualizzano le 
istruzioni necessarie per 
effettuare lo spostamento e 
si arresta l'esecuzione. Nel 
caso che lo spostamento sia 
già stato effettuato, il 
programma continua 
chiedendo il livello di 
definizione del disegno e i 
valori minimi e massimi 
delle due variabili 
indipendenti (X,Y). 

Letti i dati si esegue una 
verifica, controllando se i 
massimi di X e Y sono 
minori o uguali ai minimi; 
se è così, il programma 
torna a visualizzare la 
richiesta di immissione dati. 
Accertata la legalità dei 
dati immessi, il programma 
inizia a determinare i 
valori di X e Y dei punti 
da graficare; quindi carica 
in una matrice i valori 
normalizzati che determina 
per X e Y, utilizzando il 
passo di X e Y calcolato 
in precedenza. 

Nel passaggio successivo 
esegue la lettura dei valori 
precedentemente 
memorizzati, ed esegue i 


START 


Inizializzazione 

costanti 


Z Visualizza il 

titolo 

4 - 

< Vuoi modificare : 
la funzione? 


/ I J HO f 

Visualizza 

messaggio 


NO 

La base 
del programma 
è stata spostata? 




> 


SI 


Il programma lista la linea che 
contiene la funzione e l'esecu¬ 
zione termina. Dopo l'eventua¬ 
le ridefinizione della funzione 
occorre reimmettere il coman¬ 
do RUN 


Visualizza richiesta 
definizione disegno 

L T?—- 


Il programma non è stato ca¬ 
ricato nella giusta locazione di 
memoria. L'esecuzione è arre¬ 
stata per consentire il corretto 
caricamento. 


Z Visualizza richiesta 
range X e Y 


( 


Max<Min? 


NO 






110 






































confronti necessari per 
individuare il minimo ed il 
massimo valore di Y e di Z. 
A questo punto, in base ai 
dati in suo possesso, il 
programma inizia il calcolo 
dei fattori di scala 
orizzontali e verticali, per 
ottenere la massima 
espansione della figura da 
rappresentare sullo 
schermo. 

Qui inizia la fase che si 
riferisce al modo grafico; il 
programma chiama la bit- 
map, la «ripulisce» da 
eventuali disegni precedenti 
e la colora in blu. Espletate 
le operazioni di calcolo e di 
attivazione del modo 
grafico, inizia a 
visualizzare la figura sullo 
schermo, accendendo tutti i 
punti individuati dai valori 
presenti nelle colonne e 
nelle righe della matrice M. 
Eseguito il disegno, 
premendo un tasto 
qualsiasi il programma 
terminerà la sua 
esecuzione, e riporterà 
lo schermo nella 
configurazione iniziale. 


o 

I 


Calcola min e max 
di Y e di Z normalizzati 


* 


Calcola (attori di scala 
per Y e Z 


* 


Inizializza il 
modo grafico 


4 ^ 

Z Visualizza 

cancellazione 

bit-map 

4^ 

Z Unisce i punti 

corrispondenti 
alle colonne di M 

4^ 

Z Unisce i punti 

corrispondenti 
alle righe di M 

-M— 

< È stato digitato 
un carattere? 

— 





Torna alla 
modalità carattere 


EN ° 


Attende che sia digitato 
un carattere qualsiasi 
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Il programma 


Nella linea 330 è 
memorizzata la funzione di 
due variabili (che può 
essere modificata) della 
quale si vuole tracciare il 
grafico tridimensionale. 

Si carica poi il titolo del 
programma nella stringa 
PG$ (linea 350) e si chiama 
la routine di 
visualizzazione 2990. 

Questa chiama a sua volta 
la routine 2720, che 
inizializza le costanti del 
C-64. 

Nella visualizzazione 
successiva lo sfondo è 
colorato in blu (linea 380) e 
sono presentate le 
informazioni riguardanti 
l’eventuale modifica della 
funzione (linee 410+460). 
Per modificare la funzione 
si deve premere il tasto S, 
che visualizza la linea 330 
(linea 480) in cui si dovrà 
scrivere l'espressione della 
funzione prescelta. 

Subito dopo è visualizzata 
la richiesta dell'intervallo 
(range) di valori della X e 
della Y. La parte successiva 
(immissione di S o C) è 
demandata alla routine 
2290, che cancella la zona 
dello schermo dove sarà 
inserita la stringa 
alfanumerica; in questo caso 
la stringa è di un solo 
carattere, avendo assegnato 
nella linea 470 alla variabile 
ZL (lunghezza massima 
della stringa alfanumerica) 
il valore 1. La stessa 2290 
legge il carattere; se il 
carattere non è stato 
inserito fa lampeggiare il 
cursore sul video (linee 
2390+2410), se invece è 
stato inserito memorizza il 
suo codice ASCII (linea 
2450) e riporta la lunghezza 


100 rem »•«**********•««••*««** 

110 REM GRAFICA TRIDIMEN8I0NALE 
120 REM *•*«**«****«*•*•****•»« 

140 REM VARIABILI UTILIZZATE 

160 REM M<*,*,2>'MEMORIZZA LE TRIPLE CARTESIANE DA VI8URLIZZARE 

170 REM liJ : CONTATORI DI CICLO 

180 REM P 1 NUMERO DI PUNTI DA PRENDERE IN ESAME 

190 REM P1,P2 SPENDONO DA 'P' 

200 REM PXiPV ! PRB80 PER LA X E LA V IN MODO DA ESAMINARE SOLO 'P' PUNTI 

210 REM X.V 'COPPIE DI PUNTI PER LE QUALI SI CALCOLA IL VALORE DI 'Z' 

220 REM LX,HX 'MINIMO E MASSIMO PER 'X' 

230 REM LV,HV 'MINIMO E MAB8IM0 PER 'V' 

240 REM LZiHZ 'MINIMO E MASSIMO PER 'Z' 

250 REM 8Vj8Z 'FATTORI DI SCALA PER 'V' E '2' 

260 REM CO 'COLORE DELLA MEMORIA BIT-MAP 

270 REM XPiVP 'COORDINATE DEL PUNTO DI PARTENZA DI UN SEOMENTO DA VISUALIZZARE 

280 REM X8iVS 'COORDINATE DEL PUNTO DI ARRIVO 

110 REM LA FUNZIONE DI DUE VARIABILI 

320 REM MEMORIZZATA ALLA LINEA 330 E' QUELLA DA VISURLIZZARE 
330 DEF FNZ<Z>»SIN<X+V> 

340 REM INIZIA IL PROGRAMMA 
330 POS»"GRAFICA TRIDIMEN8IONALE" 

360 Q08UB 2990 

370 REM SFONDO BLU 

300 POKE VI+32,6'P0KE VI+33i6 

390 REM STAMPO INFORMAZIONI 

410 PRINT "LA FUNZIONE DA VISUALIZZARE E' " 

420 PRINT "ISCRITTA ALLA LINER 330." 

430 PRINT "«DIGITARE ' “ 

440 PRINT "H'S' PER MODIFICARLA;" 

430 PRINT "B'C' PER CONTINUARE)" 

460 PRINT "BTC8/CI? "1 
470 ZL a l’GOSUB 2290 

480 IF IN»«"8" THEN PRINT'TUMBBB"'LIST 330'END 

490 REM ORA CONTROLLO CHE IL PROORRMMA SIA MEMORIZZATO DALLA LOCAZIONE 16304 
300 IF PEEK<445-64 THEN 00T0 640 

310 REM AVVERTO CHE IL PROORAMMH NON PUÒ' ANDARE IN ESECUZIONE 
320 PRINT "MBT 

330 PRINT "ATTENZIONE HAI DIMENTICATO" 

340 PRINT "H)I IMMETTERE I SEGUENTI COMANDI'" 

330 PRINT "BUSI 5P0KE 44.64" 

360 PRINT "Bia2)P0KE 16394,0“ 

370 PRINT "IMPRIMA DI IMMETTERLI RICORDA" 

300 PRINT "«DI SALVARE IL PROGRAMMA, SE QUESTO" 

590 PRINT "B40N E' GIÀ' PRESENTE SU NASTRO," 

600 PRINT "1E POI DI RICARICARLO"'END 
610 REM INIZIALIZZO COSTANTI 
620 REM ORA INIZIA IL PROGRAMMA 

630 REM CHIEDO IL NUMERO DI PUNTI DA BATTERE PER X ED V 
640 PRINT "ari 

630 PRINT “QUANTI PUNTI DEVO MARCARE 7 “1 
660 ZL-2'G0SUB 2290 
670 P-VALCIN») 

680 IF P>1 THEN GOTO 710 

690 REM IL NUMERO DI PUNTI DA MARCARE E' TROPPO BASSO, RIPETERE INPUT 

700 GOTO 640 

710 Pl-P-1 

720 P2-PAP-1 

730 REM LIMITI PER LA X 

740 PRINT "CALORE MINIMO DI X C>0> 7 "J 

730 ZL-10'GOSUB 2290'PRINT 

760 REM CONTROLLO CHE X SIA > 0 

770 LX"VRL<INf) 

780 IF LXO0 THEN GOTO 740 

790 PRINT “«VALORE MASSIMO DI X ? 

800 GOSUB 2290'PRINT 
810 HX-VALCIN6) 

820 REM CONTROLLO CHE IL MASSIMO PER X SIA MAGGIORE DEL MINIMO 
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della stringa nella variabile 
Z9 (linea 2450), che sarà 
utilizzata per controllare 
che non sia stato inserito 
più del massimo dei 
caratteri previsti (linea 
2530). Inoltre, se il carattere 
inserito non è un carattere 
alfanumerico, si controlla 
se si tratta di un 
DELETE, nel qual caso si 
cancella sul video e nella 
stringa IN$ l'ultimo 
carattere immesso (linee 
2650, 2660), oppure di un 
RETURN (linea 2610), e 
allora si torna alla linea 
480. 

Poiché il programma si 
avvale della bit-map, per 
poterlo caricare è 
necessario spostare la base 
del programma stesso in un 
indirizzo di memoria 
diverso da quello in cui il 
sistema carica abitualmente 
i programmi-utente, quindi 
sono visualizzate le 
istruzioni necessarie ad 
eseguire questa operazione 
se non è già stata effettuata 
(linee 510+600). 

È poi chiesto quanti 
punti occorre considerare 
(linea 650), valore 
determinante per stabilire 
il numero di segmenti che 
saranno poi visualizzati. È 
chiamata quindi la routine 
2290 per la gestione del 
quadro, con la sola 
differenza rispetto alla 
chiamata precedente che la 
lunghezza massima della 
stringa alfanumerica è 
stabilita pari a due 
caratteri (linea 660). Un 
numero minore di due in 
questa fase non sarà 
accettato, in quanto troppo 
piccolo (linee 680+ 700). 

Alle linee 740+830 è 
chiesto di inserire il valore 
minimo e massimo per la 
variabile X (linee 740, 750), 
e si controlla che il valore 
massimo non sia minore o 
uguale al minimo (linea 


830 IF HX<«LX THEN DOTO 740 

840 REM LEO0O MINIMO E MASSIMO PER LA V 

830 PRINT "3"; 

860 PRINT "VALORE MINIMO DI V ? 

870 OOSUB 2290:PRINT 
880 LV“VAL(INf> 

890 PRINT "W/ALORE MASSIMO DI V ? "i 
900 OOSUB 2290:PRINT 
910 HV»VAL<IN*> 

920 REM CONTROLLO CHE IL MASSIMO PER V SIA MAGGIORE DEL MINIMO 

930 IF HV<=LV THEN GOTO 850 

931 FOR A=8 TO 400:NEXT R 

933 PRINT"WmiKHJraaiMUWTTENDERE, PREGO!" 

940 REM ORA HO I LIMITI PER X ED V 
930 REM ORA CALCOLO IL PASSO PER X ED V 
960 PX*<HX-LX>/P1 
970 PV«<HV-LWP1 

980 REM DIMENSIONO LA MATRICE DEI PUNTI DA VISUALIZZARE 
990 DIM M<P1,P1,2> 

1000 REM ASSEGNO E NORMRLIZZO RISPETTO AD X I VALORI DELLA MATRICE M 

1010 FOR 1=0 TO PI 

1020 FOR J*0 TO PI 

1030 X-LX+PXP1 

1040 V»LV+PV*J 

1050 M<I,J,1)=VZX 

1060 M<I,J,2)=FNZ<Z)/X 

1070 NEXT J 

1080 NEXT I 

1090 REM ORA P0S80 VISUALIZZARE LE COPPIE Y,Z NORMALIZZATE RISPETTO AD X 
1100 REM CALCOLO MINIMO E MASSIMI PER V E Z 
1110 LV=M(0;0*1) 

1120 HV-LV 
1130 LZ=M(0/0/2) 

1140 HZ-LZ 

1150 FOR 1=0 TO PI 

1160 FOR J=0 TO PI 

1170 IF M<I,J,1)<LV THEN LV=M<I,J,1) 

1180 IF M(IjJ j1)>HV THEN HV«M<I,J,1> 

1190 IF H<1<J<2KLZ THEN LZ=MCI,J,2) 

1200 IF M<I,J,2»HZ THEN HZ=M<I,J<2) 

1210 NEXT J 
1220 NEXT I 

1230 REM ORR CALCOLO I FATTORI DI SCALA PER V E Z 
1240 8V=3197(HV-LV) 

1250 8Z=199/<HZ-LZ) 

1260 REM VI8UALIZZ0 LA FUNZIONE 

1270 REM INIZIALIZZO IL MODO GRAFICO 

1280 OOSUB 1670 

1290 REM CANCELLO LO SCHERMO 

1300 OOSUB 1760 

1310 REM COLORO LO SFONDO IN BLU 

1320 C0=6:OOSUB 1790 

1330 REM POSSO DISEGNARE 

1340 FOR 1=0 TO PI 

1350 XP=<Ma,0,1)-LV)*SV 

1360 VP=(M<I,0,2)-LZ)*SZ 

1370 FOR J-l TO PI 

1380 X8=<M<I,J,1)-LV)*SV 

1390 VS-<M<I,J<2)-LZ)*SZ 

1400 GOSUB 1870 

1410 XP=X8 : VP=V8 

1420 NEXT J 

1430 NEXT I 

1440 REM LO STESSO PER Z. 

1430 FOR 1=0 TO PI 
1460 XP=<M(0,I,1)-LV)*8V 
1470 VP=<M(0<1<2)-LZ)*SZ 
1480 FOR J=1 TO PI 
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830); se è così i valori 
inseriti non sono 
considerati, e riappare la 
richiesta di immissione. La 
gestione della routine 2290 
stabilisce in dieci caratteri 
la lunghezza massima della 
stringa alfanumerica. 

Le linee 840+930 ripetono 
anche sulla variabile Y la 
stessa operazione fatta 
sulla X. 

Alle linee 960, 970 è 
stabilito il passo per X e Y, 
che dipende dai valori 
massimi e minimi inseriti 
per le due incognite 
rapportate al numero dei 
punti da visualizzare. 

Di seguito si dimensiona la 
matrice M (linea 990), vi si 
memorizzano i dati dei 
punti da visualizzare e si 
normalizza rispetto a X 
(linee 1010+1080), cioè si 
divide il valore di ogni Y 
per X, quindi dato che ogni 
X divisa per se stessa dà 
come risultato 1, partendo 
dai precedenti valori si 
calcolano i valori sull'asse 
Z [FNZfZyX], In questo 
modo rimangono solo l’asse 

Y (orizzontale) e Z (verticale). 
Alle linee 1110+1220 il 
programma calcola i valori 
minimi e massimi per Y e 
Z, assumendo inizialmente 
il primo valore di Y trovato 
nella matrice sia come 
massimo sia come minimo, 
e confrontando poi ogni Y 
della matrice con HY e LY, 
in modo da cambiare il 
valore di HY se il valore di 

Y risultasse maggiore, o 
quello di LY se il valore 
delle Y risultasse minore. 
Dopo aver letto tutta la 
matrice si troverà in HY il 
massimo valore di Y e in 
LY il minimo. Nella stessa 
maniera si troveranno il 
minimo e il massimo per Z. 
È ora necessario calcolare i 
fattori di scala per Y e Z, 
per poter ridurre il disegno 
a dimensioni tali da 


1490 XS=<M<J,I,1)-LY)*SY 
1300 YS=<M<J,I,2)-LZ)*SZ 
1310 GOSUB 1970 
1520 XP=XS:YP=YS 
1330 NEXT J 
1540 NEXT I 

1530 GET R$ 1 ZF fl*="" THEN GOTO 1550 
1560 REM RITORNO HL MODO CARATTERE 
1570 GOSUB 2170 

1580 REM IL PROGRAMMA E' TERMINATO 

1390 print "raanur 

1600 END 

1610 REM ******************************************«»*«*********«*«i*«««*«***y* 

1620 REM I SOTTOPROGRRMMI PER LA GESTIONE DELLA GRAFICA, SONO SCRITTI 

1630 REM IN MODO DA RENDERE IL PIU' VELOCE POSSIBILE LA LORO AZIONE 

1640 REM *w*«*w«***«*«***««***«**»w»w«w«**«**«»«w**«*«*w*«w«****«**«»*y«w*««i|illiw 

1650 REM ROUTINE:INIZIRLIZZA IL MODO VIDEO BIT-MAP E LE VARIABILI INTERESSATE 

1660 REM RTTIVO IL MODO BIT-MAP 

1670 POKE VI+17,PEEK<VI+1?> OR 32 

1680 REM LA MEMORIA BIT-MAP E' ALLA LOCAZIONE 8192 

1690 POKE VI+24,PEEK<VI+24> OR 8 

1700 BM»8192 : Z0=0 : Z1 =320 : Z2=7 :23= 1 /Z0 

1710 FOR 1=0 TO 7 

1720 Z3(I)=2tl 

1730 NEXT I 

1740 RETURN 

1750 REM ROUTINE : CANCELLO LA MEMORIA BIT-MAP 
1760 Z9=0:FORI=BMT0BM+7999:POKEI,Z9 : NEXT 
1770 RETURN 

1780 REM ROUTINE:IMPOSTO LO SFONDO NEL COLORE CO 
1790 FORI = 1024TO2023:POKEI,CO :NEXT 
1800 RETURN 

1810 REM ROUTINE : ACCENDE IL PUNTO DI COORDINATE XC,VC 
1820 BV=BM+INT<YC*Z3)#Z1+INT<XC*Z3>*Z0-KYCANDZ2> 

1830 POKEBV,PEEK<BV)0RZ3<Z2-(XCANDZ2> > 

1840 RETURN 

1850 REM ROUT INE TRACCI A UNA RETTA DA XP, VP A XS,YS 
1860 REM LA RETTA E' PARALLELA ALL'ASSE XC? 

1870 IF YP=VS THEN GOTO 2000 

1880 REM LA RETTA E' PARALLELA ALLEASSE VC? 

1890 IF XS=XP THEN GOTO 2050 

1900 REM POSSO CALCOLARE IL COEFFICIENTE ANGOLARE 
1910 M=<VP-VS>/CXP-XS) 

1920 IF ABS<M»1 THEN M=1/M:GOTO 2100 

1930 REM CALCOLO INTERCETTA ALL'ORIGINE PER UNA VARIAZIONE DELLE XC 

1940 Q=YS-XS*M 

1950 REM TRACCIO LA RETTA 

1960 FOR XC=XP TO X8 STEP SGN<XS-XP> 

1970 VC=M*XC+Q:GOSUB1820:NEXT 
1980 RETURN 

1990 REM LA RETTA E' PARALLELA ALL'ASSE XC 
2000 VC=YP 

2010 FOR XC=XP TO XS STEP SGN<XS-XP> 

2020 GOSUB1820 : NEXT 
2030 RETURN 

2040 REM LA RETTA E' PARALLELA ALL'ASSE VC 
2050 XC=XP 

2060 FOR VC-VP TO VS STEP SGN(VS-VP) 

2070 GOSUB1820 ; NEXT 
2080 RETURN 

2090 REM CALCOLO INTERCETTA RLL'ORIOINE PER UNA VARIAZIONE DELLE VC 

2100 Q=XS-VS*M 

2110 REM TRACCIO LA RETTA 

2120 FOR YC=YP TO VS STEP SGN(YS-YP) 

2130 XC*M4tYC+Q : GOSUB1820 : NEXT 
2140 RETURN 

2150 REM ROUTINE : TERMINA IL MODO VIDEO BIT-MAP 
2160 REM SPENGO IL MODO BIT-MAP 
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permettere la 
visualizzazione (linee 1240, 
1250). 

Alle linee 1280+1320 si 
inizializza il modo grafico 
utilizzando la routine 1670, 
che attiva la bit-map e la 
colloca in una determinata 
area di memoria (linee 
1690, 1700), cancella ciò 
che vi era stato 
precedentemente 
memorizzato (linea 1760) e 
colora lo sfondo in blu 
(linea 1790). 

Prima di poter disegnare la 
figura si devono 
moltiplicare per i fattori di 
scala precedentemente 
trovati tutte le coordinate 
dei punti da disegnare 
(linee 1340+1390). La 
routine 1870 verifica se il 
segmento da tracciare è 
parallelo all'asse delle X o 
all'asse delle Y, e ne 
calcola l'inclinazione se 
non è parallelo a nessuno 
dei due assi (linea 1910). Di 
seguito traccia i segmenti 
di retta a seconda dei tre 
casi (linee 2000, 2050, 2100) 
utilizzando la routine 1820, 
che accende punto dopo 
punto il segmento sul video. 
La linea 1410 assume come 
coordinate di partenza del 
successivo segmento quelle 
del punto di arrivo del 
segmento appena tracciato 
e ripete il ciclo finché non 
avrà disegnato tutti i punti 
calcolati per l'asse Y. 

Alle linee 1400+1540 si 
determinano e si 
moltiplicano per i fattori di 
scala precedentemente 
trovati tutte le coordinate 
dei punti da tracciare 
sull’asse Z, utilizzando un 
procedimento analogo a 
quello usato per l’asse Y. 
Per finire la linea 1550 
attende che sia digitato 
un qualsiasi tasto per 
spegnere il modo grafico 
(linea 1570) e terminare 
l'esecuzione. 


2170 POKE VI+17,PEEK<VI+1?> RND 223 
2180 POKE VI+24,PEEK<VI+24) RND 247 
2190 RETURN 

2210 REM ROUTINE : GESTISCE L'INPUT DI UNA STRINOTI ALFANUMERICA 
2220 REM LE VARIABILI UTILIZZATE SONO : Z6,Z7,Z8,Z9»Z8*,IN* 

2230 REM IN INGRESSO VUOLE IL VALORE ZL CHE E' LA LUNGHEZZA MASSIMA 
2240 REM DELLA STRINGR DA LEGGERE 

2250 REM IN USCITA DA' LA STRINGA LETTA IN IN* E LA SUA LUNGHEZZA IN Z9 

2270 REM CANCELLO LA ZONA DI SCHERMO IN CUI VERRÀ' DIGITATA LA STRINGA 

2290 FOR Z8-1 TO ZL: PRINT " ";:NEXT Z8 

2300 FOR Z8=l TO ZL : PRINT "II";: NEXT Z8 

2310 IN*="":Z7=TI 

2330 REM LEGGO UN CARATTERE 

2350 GET Z8*IF Z8*<>"" THEN 2450 

2370 REM ACCENSIONE E SPEGNIMENTO DEL CURSORE 

2390 IF Z7CTI RND N0T<Z6) THEN PRINT "Wl" ; =Z6=N0T<Z6> :Z7=TI+15 

2400 IF Z7<TI RND Z6 THEN PRINT " II"; :Z6=N0T<Z6>-Z7=TI+15 

2410 GOTO 2350 

2430 REM E' STATO DIGITATO UN CARATTERE 
2450 Z8=ASC < Z8* >: Z9=LEN <IN») 

2470 REM SE NON E' UN CARATTERE ALFANUMERICO, DEVE ESSERE UN RETURN 0 DELETE 
2490 IF NOT<Z8>31 RND Z8<96> THEN GOTO 2610 

2510 REM CONTROLLO CHE NON SIA STATA SUPERATA LA LUNGHEZZA MASSIMA 

2530 IF Z9=ZL THEN GOTO 2350 

2550 REM LO AGGIUNGO ALLA STRINGA IN* 

2570 IN*»IN*+Z8*:PRINT Z8*;-G0T0 2350 

2590 REM SE E' UN RETURN, HO TERMINATO LA LETTURA 

2610 IF Z8-13 THEN PRINT " II"; : RETURN 

2630 REM SE E' DELETE, CANCELLO IN IN* E SUL VIDEO L' ULTIMO CARATTERE DIGITATO 
2650 IF Z8=20 AND Z9>0 THEN IN*«LEFT*<IN*,Z9-1> PRINT " l«l";:G0T0 2350 
2660 GOTO 2350 

2680 REM ROUTINE' INIZIALIZZAZIONE COSTANTI 

2700 REM CIRCUITO VIDEO 

2720 VI«53248 

2740 REM CIRCUITO SUONO 

2760 SI«54272 

2780 REM MEMORIA VIDEO 

2000 MV=1024 

2820 REM MEMORIA COLORE 

2840 MC=55296 

2860 REM COSTANTI DI USO COMUNE 
2880 ZL=9 

2900 REM INIZIALIZZAZIONE CHIP SUONO 

2920 FOR I»0 TO 24 

2930 POKE SI+1,0 

2940 NEXT I 

2950 RETURN 

2970 REM ROUTINE:STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PO* 

2990 GOSUB 2720 
3000 POKE VI+32,15 
3010 POKE VI+33,15 
3028 print "murar; 

3030 PRINT TAB<6>; 11 i-V' 

3040 FOR I»1 TO 5 

3050 PRINT TRB<6>;“I I” 

3060 NEXT I 

3070 PRINT TAB(6>» * - ->»■ 

3080 PRINT TAB<6>, 11 WiaaCfflDIGITA SRE TURNI PER PROSEGUIRE" 

3090 PRINT "HHTOOD" 

3100 FOR 1=1 TO 5 
3110 PRINT TABC7); 

3120 FOR J=1 TO 26 
3130 PRINT "!SSi 
3140 NEXT J 
3150 PRINT 
3160 NEXT I 

3180 REM ORA SCRIVO IL TITOLO 

3200 PRINT “xmmm "; TAB< <40-LEN<PG*> V2> ; '■ SI»", PG* 

3210 GET Z9* 

3220 IF Z9*OCHR*C13> THEN GOTO 3210 
3230 PRINT "HC; 

3240 RETURN 
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Slot machine 


Il programma che presentiamo adesso ci permetterà di simulare il fun¬ 
zionamento di una slot machine. 

I componenti essenziali di una slot machine sono le tre ruote, su ognuna 
delle quali sono disegnate ad intervalli regolari alcune figure, ed un co¬ 
mando, generalmente una leva, che aziona alcuni meccanismi i quali im¬ 
primono alle ruote un movimento. Quando le ruote si fermano, ognuna 
di esse presenta al giocatore una figura. Il gioco consiste nell’effettuare 
una puntata, azionare il comando che permette di far girare le ruote, ed 
attendere: a seconda della combinazione che le tre figure avranno assunto 
sarà assegnata una determinata vincita. 


Analisi del 
problema 





Il nostro progetto permetterà di usare il calcolatore come se fosse una 
slot machine, assegnando al giocatore un certo numero di crediti e pre¬ 
vedendo la possibilità di effettuare una puntata, di far ruotare le figure 
e di interrompere il gioco quando si vuole. Saranno visualizzate le com¬ 
binazioni vincenti delle figure con le relative vincite, le istruzioni per gio¬ 
care, le informazioni relative ai crediti disponibili, alla puntata effettua¬ 
ta e alla vincita eventualmente realizzata. 

Dopo l’inizializzazione delle costanti, si dovranno scegliere e memoriz¬ 
zare le figure utilizzate nel gioco. Il numero, il colore e l’aspetto delle 
figure saranno memorizzati in un solo array (SL$). Visualizzato succes¬ 
sivamente il campo di gioco, sarà necessario inizializzare le variabili; in 
particolare, si memorizzerà un valore positivo (100 nel nostro caso) nel¬ 
la variabile CR che controlla i crediti disponibili, e zero nelle altre (pun¬ 
tata e vincita). Il programma dovrà quindi prelevare un carattere dalla 
tastiera, che sarà P per effettuare la puntata, G per giocare ed F per fini¬ 
re il gioco. Qualora il giocatore desideri puntare, il programma dovrà 
controllare se vi sono ancora crediti disponibili, incrementare la punta¬ 
ta e decrementare i crediti; qualora invece si desideri finire il gioco, sa¬ 
rà visualizzato il tempo trascorso dall’inizio delle giocate. 

Se infine si imposta la richiesta di giocare, il programma, dopo aver con¬ 
trollato se è stata precedentemente effettuata la puntata, dovrà attivare 
l’effetto sonoro e far ruotare le figure. Il numero dei giri che dovrà fare 
ciascuna ruota sarà determinato in modo casuale mediante l’uso della 
funzione RND, e varierà tra 50 e 100 per la terza ruota; la seconda ruota 
effettuerà un numero di giri doppio rispetto alla terza e la prima triplo. 
Per simulare il movimento delle ruote di una vera slot machine useremo 
un ciclo, controllato da una variabile che fornisce il numero dei giri da 
effettuare. Visualizzeremo così una veloce successione arbitraria di fi¬ 
gure, scelte di volta in volta utilizzando la funzione RND. Il valore forni¬ 
to da tale funzione funge da indice per accedere all’array delle figure (SL$) 
e per determinare quindi la figura da visualizzare. Il programma dovrà 
poi determinare se si è verificata una combinazione vincente (useremo 
a questo scopo istruzioni condizionate IF... THEN...) e, in caso afferma¬ 
tivo, calcolare l’entità della vincita moltiplicando la puntata per il coef¬ 
ficiente relativo alla combinazione verificatasi. Il computer emetterà un 
fischio prolungato, mentre il programma sommerà l’importo della vin¬ 
cita ai crediti disponibili e azzererà la puntata per predisporre una nuo¬ 
va partita. Il programma terminerà quando non vi saranno più crediti, 
o in seguito ad una scelta del giocatore. Per ottenere la visualizzazione 
della durata del gioco si dovrà inizializzare la variabile di sistema TI$ 
all’inizio del gioco. Al termine sarà sufficiente visualizzare il valore di 
TI$ utilizzando la funzione MID$ per evidenziare separatamente le ore, 
i minuti e i secondi trascorsi. 
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Diagrammi 
di flusso 


Dopo aver stampato il 
titolo e inizializzato le 
costanti, il programma 
passa a dimensionare e a 
inizializzare, attraverso le 
istruzioni DATA, il vettore 
LS$. Questo vettore 
contiene i caratteri delle 
figure che ruoteranno. 
Quindi si passa a presentare 
un'immagine video che 
mostra il campo di gioco, 
la lista comandi, i 
coefficienti di vincita e il 
valore iniziale delle 
variabili crediti, puntata e 
vincita. Nel blocco 
successivo avviene 
l'inizializzazione del timer, 
attraverso l’attribuzione 
alla variabile 775 di una 
stringa di sei zeri; il 
contenuto di TI$ sarà 
aggiornato ad ogni secondo 
dal C-64 e ciò permetterà in 
qualunque momento di 
avere l’indicazione del 
tempo di gioco utilizzato. 

Si attende poi che il 
giocatore immetta un 
comando da tastiera 
scegliendolo fra quelli 
previsti. Qualora sia 
premuto il tasto F 
(comando di fine gioco), il 
programma visualizza il 
tempo trascorso dall’inizio 
del gioco e i risultati 
ottenuti. Se si tratta invece 
del comando di incremento 
del valore di puntata (P), 
questo è aumentato di 
un'unità, e il programma 
ritorna nella fase di attesa 
di un comando. Infine, se il 
comando indica di giocare 
(G) è calcolato in modo 
casuale il numero di giri 
delle tre ruote; la 
rotazione avviene 
attraverso un ciclo di 
lettura e stampa del vettore 


^ START ^ 


Inizializzazione 


Dimensionamento 
e inizializzazione 
del vettore LSS 


/ Visualizzazione 
del campo 
di gioco 



Z Stampa Si 

risultati 
finali 


Termine del 
gioco? 


^ NO 


> Visualizzazione 

puntata e 
/ crediti 


( Incrementare 

END la puntata? 

Ir 

© 


SI 


Incremento 
della puntata 
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LS$. La casualità di lettura 
si ottiene utilizzando la 
funzione RND, che genera 
un numero casuale 
compreso fra zero ed uno, 
mentre per far terminare la 
rotazione delle figure nelle 
caselle in tempi differiti si 
attribuisce ad ognuna di 
esse un numero di giri 
diverso. Terminata la fase 
di rotazione, si prende in 
considerazione la 
combinazione ottenuta 
verificando se risulta 
vincente o no. Se sì il 
programma calcola nel 
successivo blocco la vincita 
(cioè moltiplica la puntata 
per i coefficienti 
associati al valore della 
combinazione), quindi 
visualizza un messaggio di 
congratulazioni e aggiorna 
i valori delle variabili. Nel 
caso in cui la combinazione 
non sia vincente, si 
determina semplicemente il 
valore dei crediti e si 
verifica se detto valore è 
maggiore o uguale a zero. 

Se è maggiore di zero il 
programma torna ad 
attendere un comando per 
una nuova partita, 
sostituendo alle variabili 
iniziali i nuovi valori 
ottenuti; se è minore o 
uguale a zero invia un 
messaggio di fine 
esecuzione e dà il valore 
del tempo trascorso 
dall'inizio del gioco. 


Ogni figura è 
stampata nella 
casella corrispondente 


Sottrae al 
valore dei crediti 
il valore della 
puntata 



© 

I 


Determinazione 
casuale dei 
giri delle ruote 

/ Stampa casuale 
di tre ligure 
per ogni giro 

Combinazione 

vmcente? dei crediti 

^ NO 



Determina 
nuovo valore 
dei crediti 

< Ci sono < N0 j 

ancora 

c= / L. 

^ SI 



© 

* 


Stampa messaggio 
di termine 
dei crediti 


j 
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Il programma 


Il programma comincia 
alla linea 260 e prosegue 
chiamando alla linea 
seguente la routine 3030, 
che permette la 
visualizzazione del titolo 
(in bianco su sfondo rosso) 
e l’inizializzazione delle 
costanti (linee 2760 + 2990). 

È poi dimensionato l'array 
SL$ e vi si memorizzano le 
figure utilizzate nel gioco 
(linee 340+400). Nelle linee 
successive è ripresentato il 
titolo, ed è visualizzata una 
tabella che fornisce le 
combinazioni vincenti delle 
figure con i rispettivi 
coefficienti di vincita. Si 
visualizza anche una griglia 
che contiene tre riquadri 
(rappresentanti le caselle 
della slot machine), si 
stampano le diciture 
CREDITI, PUNTATA e 
VINCITA (in grigio su 
sfondo nero), e sono 
presentate le istruzioni per 
il giocatore (linee 450+ 800). 
Subito dopo sono 
inizializzate le variabili 
relative ai crediti (linea 
820), cui è assegnato il 
valore 100, alla puntata 
(linea 830) e alla vincita 
(linea 840); quindi sono 
chiamate le routines 1740, 
1800 e 1850, che ne 
visualizzano i valori 
posizionandoli alla riga 
desiderata. Il programma 
affida poi il controllo alle 
routines 2100, 2150 e 2200, 
che visualizzano 
nell'apposita griglia tre 
figure estratte in modo 
casuale nell'array SL$. Si 
passa poi ad inizializzare 
TI$ (tempo di gioco), ci si 
pone in attesa di un 
comando da tastiera (linee 
970, 980) e ricevutolo, si 


100 REM ************** 

110 REM *SLOT MAGHINE* 

120 REM ************** 

140 REM VARIABILI UTILIZZATE 


160 REM I,J 
170 REM CR 
180 REM PU 
190 REM VC 
200 REM F1,F2,F3’- 
210 REM A 
220 REM QI 

230 REM RS 

231 REM SL*<7> 


:CONTATORI DI CICLO 

MEMORIZZA I CREDITI A DISPOSIZIONE DEL GIOCATORE 
VALORE DELLA PUNTATA FATTA 
VALORE DELLA VINCITA CONSEGUITA 
ì ■NUMERO DELLA FIGURA VISUALIZZATA ALLA POSIZIONE 1,2,3 
: CONTIENE IL COMANDO IMMESSO DA TASTIERA 
; NUMERO DI GIRI FITTIZI CHE LA PRIMA FIGURA DEVE COMPIERE 
PUNTEGGIO OTTENUTO IN BASE ALLA COMBINAZIONE DELLE TRE FIGURE 
CONTIENE I DISEGNI DELLE FIGURE DA VISUALIZZARE 
250 REM STAMPO TITOLO ED IN1ZIRLIZZO COSTANTI C64 
260 PG*="SLOT MACHINE" 

270 GOSUB 3030 

280 REM DIMENSIONO ARRAV 

290 DIM SL*(7) 

330 REM IMMETTO NEL VETTORE SL*<7>, LE FIGURE DA VISUALIZZARE 
340 SL*a)=''-'*s /UHI X **■■!-' M" 

350 SL*<2>="03 a ;l a" 

360 SL*C3> = "a O M1M300ÌHMI + ■" 

370 SL*<4>="S«Ì qui *HII ■“" 

380 SL*(5)=" SE,—.911811 • USIMI 1 —'*5" 

390 sl*( 6 >="vii* iv. vi■ ■ rw«• 

400 SL*(7)="II I dllH-nill I ■“ 

440 REM ORA VISUALIZZO MASCHERA VIDEO 


458 

PRINT 

"3";TflBC9>;"{ 

L 

0 

T 

M A C H I N E 

460 

PRINT 

TAB(9)i ' 





-HIT 

480 

PRINT 

TAB<23), 

"!*< X X 

*200 

VOLTE" 

490 

PRINT 

TABC23); 

"17. ■. 

*. 

■ 150 

VOLTE" 

500 

PRINT 

TAB<23>; 

"» * 

♦ 

■ 100 

VOLTE" 

510 

PRINT 

TAB(23>; 

"Sia ■ 

a 

8 

a ■ 

■ 50 VOLTE" 

520 

PRINT 

TAB<23>; 

"333! 

3:<! 

»! 

■ 25 VOLTE" 

530 

PRINT 

TAB(23); 

"« 8 M 

a 

20 

VOLTE" 

540 

PRINT 

TABC23), 

"IH- + 

4 

■ 

10 

VOLTE" 

550 

PRINT 

TABC23); 

"VX X 

a. 


6 

VOLTE" 

560 

PRINT 

TAB<23); 

"(5\ 

a. 


5 

VOLTE" 

570 

PRINT 

TABC23K 

"» * 

a. 


4 

VOLTE" 

580 

PRINT 

TAB<23); 

1. 



2 

VOLTE" 

600 

PRINT 

"flwtmr : 






610 

PRINT 

<■ 






620 

PRINT 

" 1 - _ 




630 

PRINT 

■ 1 1 

1 1 1 

1 


i" 


648 

PRINT 

" 1 1 

1 1 1 

1 


i” 


650 

PRINT 

" 1 1 

1 1 1 

1 


r 


660 

PRINT 

" 1 — 



1 m 


670 

PRINT 

" V- 






700 

PRINT 

“8" 






710 

FOR 1 = 

= 1 TO 15- 

PRINT 

NEXT 

1 



720 PRINT "SCREDITI* = “ 

730 PRINT "«SPUNTATA! = “ 

740 PRINT "MSfV INC ITA* = “ 

760 PRINT " 8 " 

770 FOR 1=1 TO 15 : PRINT : NEXT I 
780 PRINT SPCC23);"P PER PUNTARE" 

790 PRINT "M";SPC(23);"G PER GIOCARE" 

800 PRINT "M”,SPC<23>;"F PER FINIRE" 

810 REM INIZIRLIZZO CREDITI,PUNTATA E VINCITA 
820 CR=100 
830 PU=0 
840 VC=0 

860 REM VISUALIZZO CREDITI,PUNTATA E VINCITA 
870 GOSUB 1740 
880 GOSUB 1800 
890 GOSUB 1850 

900 REM VISUALIZZO TRE FIGURE 
910 GOSUB 2100 
928 GOSUB 2150 
930 GOSUB 2200 

940 REM INIZIRLIZZO IL TEMPO DI GIOCO 
950 TI*="000000" 

960 REM ATTENDO UN COMANDO 
970 A=PEEK<197> 

980 IF A=64 THEN GOTO 970 

990 IF (A041 > AND <80263 AND (R021) THEN GOTO 970 
1000 REM IL COMANDO DATO E" ACCETTABILE. LO ESEGUO 
1010 IF A=41 THEN GOSUB 1900: GOTO 975 , 

1020 IF fl=21 THEN PRINT "nSSBRAVO, HAI TERMINATO IN ATTIVO. 
1030 REM IL COMANDO INDICA DI GIOCARE 
1040 REM SE PU=0 NON SI GIOCA 
1050 IF PU=0 THEN GOTO 970 

1090 REM CALCOLO IL NUMERO DI GIRI DELLA TERZA FIGURA 
1120 GI=INT<RND(0)*5D+50 

1130 REM EMETTO UN SUONO SIMILE AD UNA RUOTA CHE GIRA 

1140 POKE SI+24,15 

1150 POKE SI+1,100 POKE SI,0 

1160 POKE SI+5,15 : POKE SI+6,255 

1170 POKE SI+14,150 : POKE SI+15,0 

1180 POKE SI+19,15 POKE SI+20,255 


GOTO 1560 
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verifica se è un comando 
valido (linea 990). Se il 
comando è P (puntata) si 
chiama la routine 1900, che 
se vi sono crediti 
disponibili li decrementa e 
incrementa la puntata. 

Se il comando è F 
(finire) è visualizzato il 
messaggio della linea 1020 
e termina l'esecuzione del 
programma. Se infine il 
comando è G (giocata) si 
controlla se è stata 
effettuata la puntata (linea 
1050) e se ciò è stato fatto 
si stabilisce casualmente, in 
un valore compreso tra 50 
e 100, il numero di giri che 
dovrà compiere la terza 
ruota (linea 1120); la seconda 
e la prima ne compiranno 
rispettivamente un numero 
doppio e triplo. Si emette 
quindi un effetto sonoro 
che ricorda il suono di una 
ruota che gira (linee 
1140+1200) e vengono fatte 
ruotare le tre figure. Il 
ciclo chiama ripetutamente 
le routines 2200, 2150 e 
2100, e visualizza in rapida 
successione nella griglia un 
gran numero di figure 
(linee 1220+1260). Il 
programma, finito il ciclo e 
visualizzate quindi 
stabilmente tre figure, 
interrompe l'effetto sonoro 
(linee 1280+1300) e verifica 
se la combinazione assunta 
dalle tre figure è tra quelle 
vincenti (linee 1320+1450). 
In caso affermativo è 
chiamata la routine 2260, 
che calcola l’importo della 
vincita, emette un fischio 
prolungato (linee 
2300+2440) ed incrementa i 
crediti di un valore pari a 
quello della vincita stessa 
(linee 2530+2550), 
accompagnando 
acusticamente l’operazione 
(linee 2570+2620). Se non c’è 
stata vincita, è azzerata la 
puntata (linea 1460) e si 
controlla se vi sono ancora 


1199 POKE SI+18,17 

1200 POKE SI+4,21 

1210 REM ORA FACCIO RUOTARE LE TRE FIGURE 

1220 FOR 1=1 TO 4*GI 

1230 IF K=GI THEN GOSUB 2200 

1240 IF IC=2*GI THEN GOSUB 2150 

1250 GOSUB 2100 

1260 NEXT I 

1270 REM ORA SPENGO IL GENERATORE DI SUONI 
1230 FOR 1=0 TO 24 
1290 POKE SI+1,0 
1300 NEXT I 

1310 REM CALCOLO IL POmEGGIO OTTENUTO 


1320 

RS=0 







1330 

IF 

Fl=l 

AND 

F2=l 

AND 

F3=l 

THEN 

RS=200 

1340 

IF 

FI =2 

AND 

F2=2 

AND 

F3=2 

THEN 

RS=150 

1350 

IF 

FI =3 

AND 

F2=3 

AND 

F3-3 

THEN 

R3=180 

1360 

IF 

FI =4 

AND 

F2=4 

AND 

F3=4 

THEN 

RS=50 

1370 

IF 

FI =5 

AND 

F2=5 

AND 

F3=5 

THEN 

RS=25 

1380 

IF 

FI =6 

AND 

F2=6 

AND 

F3=6 

THEN 

RS=20 

1390 

IF 

FI =7 

AND 

F2=7 

AND 

F3=7 

THEN 

RS=10 

1400 

IF 

F1=1 

AND 

F2=l 

AND 

F3<>1 

THEN RS=6 

1410 

IF 

FI =2 

AND 

F2=2 

AND 

F3<>2 THEN RS=5 

1420 

IF 

FI =3 

AND 

F2=3 

AND 

F303 THEN RS=4 

1430 

IF 

Fl=3 

AND 

F2<>3 THEN RS= 

=2 



1440 REM CONTROLLO SE CI SONO VINCITE 
1450 IF RSO0 THEN GOSUB 2260 
1460 PU=0 

1470 REM VISUALIZZO PUNTATA 
1480 GOSUB 1300 

1490 REM CONTROLLO CHE CI SIANO ANCORA CREDITI 
1510 IF CR>0 THEN GOTO 970 

1520 REM I CREDITI SONO TERMINATI; VISUALIZZO TERMINE GIOCO 
1540 PRINT 'TI" 

1550 PRINT "(ITOillCWAi TERMINATO I CREDITI." 

1560 PRINT "«HAI GIOCATO PER" 

1570 PRINT "M";MID*<TI*,1,2>;".OR"; 

1580 IF MID$CTI$,1,2>="01" THEN PRINT "A" 

1590 IF MIDt(TI$, 1.2)O"01" THEN PRINT “E" 

1600 PRINT "M";MID$<TI*,3,2>;"...I1INUT", 

1610 IF MID*<m.3,2>="01" THEN PRINT "0" 

1620 IF MIDf<TI*.3,2)O"0r' THEN PRINT "I" 

1630 PRINT "S";MID*<TIt,5.2);"..SECOND"; 

1640 IF MID*<m,5,2)=“01" THEN PRINT "0“ 

1650 IF MIB*<m,5,2><>"01" THEN PRINT "I" 

1660 REM PULISCO IL BUFFER DI INGRESSO 
1670 FOR 1=1 TO 10 
1680 GET A* 

1690 NEXT I 
1700 PRINT "■«««" 

1710 END 

1720 REM INIZIANO LE ROUTINES 
1730 REM ROUTINE:VISUALIZZA I CREDITI 
1740 POKE 214,15 PRINT 
1760 PRINT SPCC10)," 

1770 PRINT "n",SPC(10);CR 
1780 RETURN 

1790 REM ROUTINE : VISUALIZZA PUNTATA 
1800 POKE 214,17-PRINT 
1310 PRINT SPCC10);" 

I 820 print "n";spca 0 >;pu 

1830 RETURN 

1840 REM ROUTINE:VISUALIZZA VINCITA 
1850 POKE 214,19PRINT 
1860 PRINT SPCC10);" 

1870 print "n";spcci 0 );vc 

1880 RETURN 

1890 REM ROUTINE:INCREMENTA PUNTATA, SE POSSIBILE 
1900 IF CR=0 THEN RETURN 
1910 CRCR-1 
1920 PU=PU+1 

1930 REM VISUALIZZO CREDiTI 

1940 GOSUB 1740 

1950 REM VISUALIZZO PUNTATA 

1960 GOSUB 1800 

1970 REM EMETTO UN BEEP 

1980 POKE SI,0 

1990 POKE SI+1,50 

2000 POKE SI+24,15 

2010 POKE SI+5,15 

2020 POKE SI+6,0 

2030 POKE SI+4,17 

2050 FOR 1=1 TO 50: NEXT I 

2060 POKE SI+24,0 

2070 POKE SI+4,0 

2080 RETURN 

2090 REM ROUTINE:VISUALIZZA LA FIGURA 1 
2100 POKE 214,5 : PRINT 
2110 F1=INTCRND<0)*7)+1 
2120 PRINT SPC(4>;SLfCF1) 
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crediti disponibili (linea 
1510). Nel caso che i crediti 
siano finiti è visualizzato il 
messaggio della linea 1550, 
assieme alla durata della 
giocata, altrimenti il 
programma si pone di 
nuovo in attesa di un 
comando. 


2130 RETURN 

2140 REM ROUTINE VISUALIZZA LA FIGURO 2 
2150 POKE 214,5 : PRINT 
2160 F2=INTCRND(01*7)+1 
2170 PRINT SPC<9>;SL$<F2> 

2180 RETURN 

2190 REM ROUTINE:VISUALIZZO Lfl FIGURO 3 
2200 POKE 214,5:PRINT 
2210 F3=INT<RND<0>*7>+1 
2220 PRINT SPC(14>JSL$<F3) 

2230 RETURN 

2240 REM ROUTINE : GESTIONE VINCITA 

2260 VC=PU*RSREM CALCOLO IL NUMERO DI CREDITI VINTI 

2280 GOSUB 1850 : REM VISUALIZZO Lfl VINCITA 

2290 REM EMETTO UN FISCHIO PROLUNGATO 

2300 POKE SI+24,15 

2310 POKE SI+5,15+2*16 

2320 POKE SI+6,15*16 

2330 POKE SI,0 

2340 POKE SI+4,17 

2350 FOR >1 TO 8 

2360 FOR 1=1 TO 255 STEP 16 

2370 POKE SI+1,I 

2380 NEXT I 

2390 FOR 1=255 TO 1 STEP -16 

2400 POKE SI+1,I 

2410 NEXT I 

2420 NEXT J 

2430 POKE SI+4,0 

2440 POKE SI+24,0 

2450 REM ORA INCREMENTO I CREDITI, DECREMENTO Lfl VINCITA, EMETTENDO UN BEEP 

2460 POKE SI+24,15 

2470 POKE SI,0 

2480 POKE SI+1,0 

2490 POKE SI+4,33 

2500 POKE SI+5,15 

2510 POKE SI+6,240 

2530 VC=VC-1 

?550 rp=rp+i 

2560 REM VISUALIZZO LE DUE COSE 

2570 GOSUB 1740 

2580 GOSUB 1850 

2590 REM EMETTO UN BEEP 

2600 POKE SI+1,90 

2610 FOR 1=1 TO 5:NEXT I 

2620 POKE SI+1,0 

2630 REM CONTROLLO SE HO TERMINATO 

2640 IF VC>0 THEN GOTO 2530 

2650 REM SPENGO IL GENERATORE DI SUONI 

2660 FOR 1=0 TO 24 

2670 POKE SI+1,0 

2680 NEXT I 

2700 RETURN 

2720 REM ROUTINE INIZIALIZZAZIONE COSTANTI 

2760 VI =53248 : REM CIRCUITO VIDEO 

2300 SI=54272 : REM CIRCUITO SUONO 

2340 MV=1024 REM MEMORIA VIDEO 

2380 MC=55296 : REM MEMORIA COLORE 

2920 ZL=9 : REM COSTANTI DI USO COMUNE 

2940 REM INIZIALIZZAZIONE CHIP SUONO 

2960 FOR 1=0 TO 24 

2970 POKE SI+1,0 

2980 NEXT I 

2990 RETURN 

3010 REM ROUTINE:STAMPA il TITOLO DEL PROGRAMMA MEMORIZZATO IN PG$ 

3030 GOSUB 2760 
3040 POKE VI+32,15 
3050 POKE VI+33,15 

3060 print -ammr: 

3070 PRINT TAB<6) i " r-V 

3080 FOR 1=1 TO 5 

3090 PRINT TAB<6>;"I I" 

3100 NEXT I 

3110 PRINT TAB<6) ; " -J“ 

3120 PRINT TRB(6);"SSsHlfttBIBIGITA SRETURNS PER PROSEGUIRE” 

3130 PRINT “HHWSr 
3140 FOR 1=1 TO 5 
3150 PRINT TAB<7>; 

3160 FOR J=1 TO 26 
3170 print "raa 
3180 NEXT J 
3190 PRINT 
3200 NEXT I 

3220 REM ORA SCRIVO IL TITOLO 

3240 PRINT "SSISITOBIWr, TABI <40-LEN(PG$)>/2>; ”50".:PG* 

3250 GET Z9* 

3260 IF Z9$OCHRt<13> THEN GOTO 3250 
3270 PRINT 'Tia" : 

3280 RETURN 
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Proviamo con l’Assembler 

Come sappiamo un calcolatore non è capace di comprendere direttamente 
le frasi che gli vengono sottoposte, in quanto i suoi circuiti elettronici 
sono in grado di elaborare solo segnali in codice binario. Quindi se si scri¬ 
ve un programma in Basic o in un qualsiasi altro linguaggio simbolico, 
un interprete (programma di sistema) dovrà tradurre ciascuna istruzio¬ 
ne nei corrispondenti codici binari (linguaggio macchina) che il micro- 
processore del computer è in grado di comprendere ed eseguire. 

Ogni istruzione in linguaggio macchina è formata da un codice operati¬ 
vo (che fornisce al microprocessore l’operazione da eseguire) ed eventual¬ 
mente da uno operando (in generale un indirizzo di memoria in cui sono 
contenuti i dati ai quali fa riferimento l'istruzione). Risulta evidente che 
se si programmasse direttamente in linguaggio macchina si aumenterebbe 
di molto la velocità di esecuzione del programma, in quanto verrebbe eli¬ 
minata la fase di traduzione. I programmi dovrebbero però essere scrit¬ 
ti in forma binaria e risulterebbero di difficile comprensione in quanto 
formati da lunghe sequenze di cifre 0 e 1. Per mantenere i vantaggi del¬ 
la programmazione in linguaggio macchina, e nello stesso tempo conser¬ 
vare la massima comprensibilità, si fa uso allora di una rappresenta¬ 
zione delle istruzioni che associa ad ogni codice operativo del linguag¬ 
gio macchina un codice mnemonico. Si può così programmare usando 
il linguaggio formato con i codici mnemonici, chiamato Assembler, che 
si può considerare un linguaggio intermedio tra i linguaggi ad alto li¬ 
vello (quali il Basic, il Pascal, il Cobol, il Fortran, ecc.) e il linguaggio 
macchina. 


Il programma che vogliamo scrivere avrà il compito di tradurre in As- 
Analisi del sembler le istruzioni scritte in linguaggio macchina. Fornendo infatti un 

problema indirizzo di memoria saranno visualizzati il codice operativo, l’operan¬ 

do e la corrispondente istruzione in linguaggio assemblativo contenuti 
nelle locazioni di memoria a partire da quella specificata. Sarà quindi 
possibile rappresentare le istruzioni Assembler corrispondenti alle istru¬ 
zioni di un programma scritto in linguaggio macchina, rendendone così 
più facile la comprensione. Dato che generalmente si fa riferimento agli 
indirizzi di memoria facendo uso della notazione esadecimale, il program¬ 
ma sarà scritto in modo da accettare indirizzi codificati secondo questa 
notazione. 

Esaminiamo quindi le caratteristiche fondamentali del sistema di nume¬ 
razione esadecimale, che è un sistema posizionale come quello decima¬ 
le. Un sistema di numerazione si dice posizionale quando i simboli in es¬ 
so utilizzati (le cifre da 0 a 9 in quello decimale) assumono un significato 
diverso in funzione della posizione che hanno all'interno del numero. Nel 
sistema decimale ad esempio ogni numero viene diviso in unità, decine, 
centinaia, ecc. In un qualsiasi sistema posizionale per determinare il nu¬ 
mero rappresentato dobbiamo prendere le cifre che lo costituiscono da 
destra verso sinistra, moltiplicarle per le potenze crescenti (potenza ze¬ 
ro per la prima cifra a destra) del numero che rappresenta la base del 
sistema e sommare tra loro i risultati di queste moltiplicazioni. Ad esem¬ 
pio, il valore del numero 3479 in rappresentazione decimale (base 10), 
è dato dall’espressione: 

(3 10 3 )+(4 10 2 )+(7 10 , )+(9-10 0 ) = (3-1000)+(4-100)-f (710) + (9-l) = 

- 3000 + 400 + 70 + 9 = 3479 

Il sistema esadecimale è concettualmente del tutto simile a quello deci¬ 
male, solo che viene scelto come base del sistema il numero 16 anziché 
il 10 e come simboli le lettere A (= 10), B(= 11), C(= 12), D(= 13), E(= 14), 
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F(= 15) oltre alle cifre da 0 a 9 (16 simboli in tutto). Il valore del numero 
esadecimale A3F, ad esempio, è dato dall’espressione: (A16 2 ) + (316') + 
+ (F'16°) e corrisponderà quindi al numero decimale 

(1016 2 ) + (316 , ) + (15-16°) = 2560+48 + 15= 2623 

Se si vuole ottenere il passaggio inverso, ovvero convertire un numero 
decimale in esadecimale, si può usare il metodo delle divisioni successi¬ 
ve, che consiste nel dividere più volte il numero decimale per sedici, fino 
ad ottenere un quoziente avente la parte intera nulla, e annotando ogni 
volta il resto. Per esempio, dovendo convertire il numero decimale 949 
si dovranno effettuare le seguenti divisioni: 949/16= 59 con resto 5; 
59/16 = 3 con resto 11(11 =B in esadecimale); 3/16= 0 con resto 3; il nu¬ 
mero esadecimale corrispondente a 949 è quindi 3B5. 

Per tornare al programma, innanzitutto sarà necessario avere a disposi¬ 
zione tutte le istruzioni Assembler associate alle istruzioni in linguaggio 
macchina. A tale scopo sarà utilizzata una matrice di 256 righe per tre 
colonne. La scelta delle dimensioni della matrice non è casuale: infatti, 
poiché i codici operativi delle istruzioni macchina del nostro micropro¬ 
cessore sono lunghi un solo byte (8 bits), se ne possono avere al massimo 
256 (2*). In realtà i codici operativi effettivamente utilizzati sono solo 57; 
i 199 valori che restano non sono significativi, e nella matrice vengono 
rappresentati con tre asterischi. 

Il programma leggerà le informazioni da inserire nella matrice dalle ap¬ 
posite istruzioni DATA. Ogni istruzione in linguaggio macchina, come si 
è detto, può includere un operando; è quindi prevista nei DATA, per ogni 
istruzione Assembler, l’indicazione della lunghezza in bytes (al massimo 
2) dell’operando e della posizione in cui dovrà essere visualizzato (la ma¬ 
trice prevede infatti 3 colonne per memorizzare, oltre al codice mnemo¬ 
nico, anche queste due informazioni). Ad esempio, ADC $ 1,5 indica che 
l’istruzione in linguaggio macchina corrispondente ha un operando di lun¬ 
ghezza pari ad un byte che deve essere posizionato nel sesto carattere 
a partire da sinistra (cioè dopo ADC $). Se ad esempio in una coppia di 
celle di memoria contigue è contenuta l’istruzione in linguaggio macchi¬ 
na 654A (di cui 4A è la parte operando), la corrispondente istruzione As¬ 
sembler sarà visualizzata come ADC $4A. 

Sarà inoltre necessario inizializzare un vettore contenente i simboli del 
sistema esadecimale, che servirà per convertire il numero introdotto nel 
corrispondente decimale. Infatti, poiché il programma è scritto in Ba¬ 
sic, bisognerà convertire in notazione decimale ogni indirizzo di memo¬ 
ria fornito, prima di trovare (con una PEEK) il codice operativo dell’i¬ 
struzione corrispondente in linguaggio macchina. Si procederà poi a leg¬ 
gere nella matrice l’istruzione Assembler associata, ad inserirvi, secon¬ 
do le modalità previste, la parte operando qualora fosse presente, e a vi¬ 
sualizzare tutte queste informazioni. La riga di stampa sarà quindi com¬ 
posta in sequenza: indirizzo della locazione di memoria, codice operati¬ 
vo con eventuale operando, codice mnemonico con eventuale operando. 
Il programma continuerà fornendo i dati relativi agli indirizzi di memo¬ 
ria successivi a quello introdotto (ricominciando dall’inizio dopo aver vi¬ 
sualizzato il contenuto delTultima memoria indirizzabile), fino a che l’u¬ 
tente non digiti un comando da tastiera. La locazione di memoria ad in¬ 
dirizzo più elevato nel CBM-64 è la 65535; infatti 64 kbytes corrispondo¬ 
no ad un totale di 64* 1024 = 65536 bytes e, considerando lo zero, la rap¬ 
presentazione esadecimale dell’ultima locazione è FFFF (=65535 deci¬ 
male). FFFF sarà quindi il massimo indirizzo accettato dal programma. 
I comandi disponibili saranno i seguenti: R per interrompere l’esecuzio¬ 
ne e fornire un nuovo indirizzo di partenza, F per porre fine al program¬ 
ma ed infine S per sospendere momentaneamente l’esecuzione che ripren¬ 
derà non appena sarà rilasciato il tasto. 
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Diagrammi 
di flusso 


In testa è presente la solita 
fase di stampa del titolo e 
di inizializzazione delle 
costanti. Si prosegue con il 
dimensionamento e la 
memorizzazione della 
matrice TS$ attraverso la 
lettura dei DATA. La 
matrice contiene ora i 
simboli (codici mnemonici) 
che il programma andrà ad 
associare al corrispondente 
indirizzo di memoria. 

Sono poi trasferiti nel 
vettore ES$ i simboli 
relativi alla codifica 
esadecimale. Quindi, dopo 
aver presentato il menù dei 
comandi, il programma 
richiede da quale locazione 
l’utente intenda iniziare il 
disassemblamento. Verifica 
se l'indirizzo immesso è 
rappresentato in 
esadecimale e se è 
composto al massimo da 
quattro cifre: in caso 
negativo torna a richiedere 
l'indirizzo, dopo aver 
stampato i relativi 
messaggi d'errore, mentre 
in caso positivo continua 
usando il vettore di 
trasformazione (ES$) per 
tradurre l'indirizzo in 
decimale. 

A questo punto l'indirizzo 
della locazione è 
rappresentato in decimale, 
e il programma va a 
leggere il suo contenuto 
tramite la funzione di 
sistema PEEK. 

Il blocco successivo 
trasforma il valore letto 
(che è in forma decimale) 
in una stringa esadecimale, 
che è poi stampata insieme 
all'indirizzo della 
locazione di memoria. 

Si preleva quindi 
l’eventuale operando, che 


TS$ è la matrice nella quale 
sono memorizzati i codici 
Assembler attraverso la 
lettura dei DATA 


( . START ~) 


Inizializzazione 


/ Stampa dei 
titolo 


Dimensionamento 
e memorizzazione 
matrice TSS 




Memorizzazione 
vettore ESS 


ESS conterrà i simboli 
relativi alla codifica 
esadecimale 


/ Visualizzazione 

/ 




/ Lettura indirizzo 
iniziale 


•o 


Stampa messaggio N0 1 
di errore /v { 


La rappresentazione 
esadecimale 
è esatta? 


) 


^ SI 


O 

* 


©■ 


< Le cifre sono \ v / Stampa messaggio ; 
più di 4? di errore 

NO 


Converiìone 

indirizzo di 
memoria in 
esadecimale 
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può essere composto da 1 o 
2 bytes, dalle locazioni di 
memoria immediatamente 
successive a quella letta in 
precedenza. Anche questo è 
tradotto in notazione 
esadecimale, ed è poi 
stampato di seguito al 
codice operativo. La riga di 
stampa è completata 
dal codice mnemonico, 
unito all’eventuale 
operando. Per proseguire 
nel disassemblamento si va 
poi a calcolare l'indirizzo 
della locazione successiva, 
dopo di che il programma 
esamina se è stato digitato 
un comando da tastiera. Il 
primo è il comando di 
sosta che permette di 
sospendere l'esecuzione e la 
stampa fino a quando si 
mantenga premuto il tasto 
S. Il secondo è il comando 
di uscita dal ciclo (tasto R) 
che fa tornare al punto del 
programma in cui si 
richiede l’indirizzo della 
prima locazione. L'ultimo è 
il comando che permette di 
terminare definitivamente 
l'esecuzione del programma 
(tasto F). 

Se non è stato premuto 
alcun tasto, oppure se ne è 
stato premuto uno 
differente da quelli 
indicati, si passa a 
considerare la locazione di 
memoria che segue, 
riprendendo il ciclo dalla 
conversione dell'indirizzo 
in esadecimale. 


L'operando è stampato di 
seguito al codice operativo 


Se la locazione precedente 
è FFFF la successiva sarà la 
0000 





SI 



Prelievo contenuto 
locazione 
di memoria 


4^ 

Conversione codice 
operativo In 
esadecimale 


4^ 

/ Stampa indirizzo 

memoria e codice 
operativo 

Prelievo eventuale 
operando e conversione 
in esadecimale 


Z Stampa 

parte operando 

T 




Sono letti 1 o 2 bytes 
consecutivi a seconda della 
lunghezza dell'operando 


Stampa codice 
mnemonico con 
eventuale operando 


Incremento indirizzo 
per successiva 
locazione 


( 

< 


4^ NO 


Sospendere? 


^ NO 


Ricominciare? 


> t K 
) 


© 

JL 


Fine sospensione? 
NO 


> 


Finire? 
4, si 


NO 


O 
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Il programma 


Le istruzioni contenute 
nelle linee dalla 120 alla 
150 permettono di 
visualizzare il titolo del 
programma e di 
dimensionare la matrice 
TS$ e il vettore ES$. Dopo 
aver inviato un messaggio 
all'utente (linee 211, 212) 
nel quale si prega di 
attendere, il programma 
memorizza nella matrice 
TS$ (linee 220+ 240) le 
informazioni relative alle 
istruzioni Assembler 
leggendole dai DATA delle 
linee 30000+30225, 
operazione che richiede un 
tempo relativamente lungo. 
Sono poi inseriti nel 
vettore ES$ i simboli 
utilizzati nella numerazione 
esadecimale (linee 
243+248). Dopo la stampa 
del menù dei comandi 
(linee 263+275), la linea 290 
passa il controllo alla 
routine 10000 che, chiesto 
all'utente l'indirizzo di 
memoria da cui vuole 
iniziare il disassemblaggio, 
verifica che il numero 
digitato sia esadecimale 
(linee 10030+10110) e, 
qualora non lo fosse, 
stampa un messaggio di 
avvertimento e si 
riposiziona in attesa di un 
indirizzo. Quando invece il 
numero digitato è corretto 
questa routine, tolti 
eventuali zeri presenti 
all'inizio del numero, in 
quanto non significativi 
(linea 10113), ne verifica la 
lunghezza e, nel caso che 
questa superi le quattro 
cifre, visualizza il 
messaggio: «attenzione, gli 
indirizzi a disposizione 
vanno da 0000 a FFFF» e 
attende un nuovo indirizzo. 


0 REM #**##*#*#*#********#**#**# 
1 REM ^PROVIAMO CON L'ASSEMBLER* 
REM *«***:♦*:♦**♦♦+.♦**♦*♦♦***.♦*♦. 
REM VRRIABILI UTILIZZATE 


REM I,J AGONTATORI DI CICLO 

REM SD •INDIRIZZO DELLA LOCAZIONE DR DISASSEMBLARE 

REM SD» ■INDIRIZZO ESRDECIMALE DELLA LOCAZIONE DI MEM. DA DISRSSEMBLARE 

REM C» : USATA NELLA ROUTINE DI INPUT 

10 REM CN : VALORE DA CONVERTIRE IN ESADECIMALE 

11 REM CN* : STRINGA ESADECIMALE OTTENUTA DALLA CONVERSIONE DI CN 

12 REM RE ; USATA NELLA ROUTINE DI CONVERSIONE DECIMALE-ESRDECIMALE 

13 REM OP : CODICE OPERATIVO DELL'ISTRUZIONE DA DISRSSEMBLARE 

14 REM LU : LUNQHEZZR DELLA PARTE OPERANDO DELL'ISTR. DA DISRSSEMBLRRE 

15 REM IL» : PARTE BASSA DELLR PARTE OPERANDO, IN ESADECIMALE 

1S REM IH* ; PARTE ALTA DELLA PARTE OPERANDO, IN ESADECIMALE 

17 REM OP* : ASCII DEL CODICE OPERATIVO 

1B REM PO ^POSIZIONE,NELLA STRINOA CODICE OPERATIVO,DELLA PARTE OPERANDO 

19 REM PI* : STRINGA CONTENENTE L'INTERA PARTE OPERANDO 

20 REM A* : USATA PER SVUOTARE IL BUFFER DI INGRESSO 

21 REM A : CONTIENE IL COMANDO IMMESSO DA TASTIERA 

22 REM IL ^DECIMALE DI IL* 

23 REM IH : DECIMALE DI IH* 

24 REM ES*(15) : USATO NELLR CONVERSIONE DECIMRLE-ESRDECIMALE ED INVERSA 

25 REM TS*<255,2rCONTIENE I CODICI MNEMONICI DELLE ISTRUZIONI 
110 REM TITOLO ED INIZIRLIZZRZIONE COSTRNTI C64 

120 PO*= "PROVI AMO CON L'ASSEMBLER" 

130 OOSUB 62000 

140 REM DIMENSIONO RRRRV 

150 DIM TS*(Z55,2),E8*(15) 

160 REM LEGGO LA TAVOLR DEI SIMBOLI MEMORIZZATA CON ISTRUZIONI DATA 
170 REM LA TAVOLA DEI SIMBOLI E' COMPOSTA DA 256 RIGHE DI 3 COLONNE 
100 REM NELLH PRIMR COLONNA C'E' IL CODICE MNEMONICO SENZA PARTE INDIRIZZO 
190 REM NELLA SECONDR C'E' LA LUNQHEZZR DELLA PARTE INDIRIZZO; 1 0 2 BVTES 
200 REM NELLA TERZB COLONNH C'E' LA POSIZIONE DELLA PBRTE INDIRIZZO 

210 REM ALL'INTERNO DELLA PARTE CODICE MNEMONICO 

211 PRINT "nfflIRTTENDERE UN MOMENTO," 

212 PRINT "IPER FAVORE," 

220 FOR 1=0 TO 255 

230 READ TS*(I,0>;TS*(1,1),TS*<1,2) 

240 NEXT I 

241 REM INIZIALIZZO IL VETTORE USATO NELLA CONVERSIONE DECIMALE-ESADECIMALE 

243 FOR 1=0 TO 9 

244 E8*<I>=RI0HT*(STR*(I),1> 

245 NEXT I 

246 FOR 1=10 TO 15 

247 ES*<I)=CHR*(RSC<"R“)+I-10) 

248 NEXT I 

250 REM INIZIA IL PROORAMMR DISA8SEMBLRT0RE 
260 REM CARATTERI IN NERO 
Z61 PRINT 

263 REM VISUALIZZO IL MENU 

270 PRINT"BOB" 

271 PRINT"JB5E VUOI SOSPENDERE TIENI PREMUTO S" 

273 PRINT"JBE VUOI RICOMINCIARE PREMI R" 

275 PRINTUISSE VUOI FINIRE PREMI F" _ 

280 REM CHIEDO LOCAZIONE DA CUI INIZIARE IL DISASSEMBLAGGIO 
290 QOSUB 10000 

300 REM LA LOCAZIONE DR CUI INIZIARE E' MEMORIZZATA IN SD 
330 REM INIZIO IL DISASSEMBLAGGIO 

340 print "*nr; 

350 REM CONVERTO SD IN UNA STRINGA E8ADECIMALE DI QUATTRO CIFRE 

360 CN=SD 

370 008UB 20000 

380 REM STAMPO INDIRIZZO DI MEMORIA 
390 PRINT CN»; 

400 REM STAMPO LA PARTE CODICE OPERATIVO 
410 OP“PEEK(SD> 

420 CN-OP 
430 OOSUB 20000 

440 PRINT TABC6);RIGHT»(CN*,2>; 

450 REM LUNQHEZZR DELLR PRRTE OPERANDO 
460 LU“VAL<TS*(OP,I)) 

470 REM CARICO LA PRRTE OPERRNDO IN IL»,IH* 

480 OOSUB 21000 

490 REM STAMPO L'OPERANDO DI SEGUITO AL CODICE OPERATIVO 
500 PRINT IL*;IH»; 

510 REM MANIPOLO IL CODICE OPERATIVO 
520 OP»=T8*<OP,0) : IF OP*=""THENOP*»"***" 
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Qualora la lunghezza del 
numero fornito non superi 
quella massima prevista il 
numero è convertito in 
decimale facendo 
riferimento al vettore ES$ 
(linee 10180+10270). Il 
programma poi memorizza 
il valore così ottenuto nella 
variabile CN, chiama la 
routine 20000, che lo 
riconverte in una stringa 
esadecimale di quattro cifre 
(linee 20030+ 20090), e lo 
visualizza (linea 390). 

La conversione da 
esadecimale in decimale è 
necessaria per leggere il 
contenuto della locazione 
di memoria con la funzione 
PEEK (linea 410), che 
trasferisce nella variabile 
OP il codice operativo (in 
notazione decimale). Il 
valore di OP è poi 
assegnato a CN (linea 420) 
ed è chiamata di nuovo la 
routine 20000 (linea 430) 
che lo converte in 
esadecimale per poterlo 
visualizzare (linea 440). 

Nella linea 460 si determina 
la lunghezza delioperando 
(0, 1 o 2 bytes) e 
successivamente (linea 480) 
si chiama la routine 21000, 
che memorizza il valore del 
1 ° byte in IL$ e quello 
delieventuale 2° byte in 
1H$, convertendoli poi in 
esadecimale utilizzando 
ancora la routine 20000. 
Sono quindi stampati IL$ e 
IH$, che non conterranno 
alcun valore nel caso che 
non sia presente alcun 
operando associato al 
codice operativo (linea 500). 
Si carica poi nella 
stringa 0P$ l'istruzione 
Assembler corrispondente 
al codice operativo già 
determinato, inserendo tre 
asterischi nel caso che 
questa non esista 
(linea 520); quindi è 
riportata nella variabile 
PO la posizione 


530 REM POSIZIONE DELLR PRRTE OPERANDO 
540 P0=VRL<TS*<0P,2>) 

550 REM CONTROLLO SE Lfl PRRTE OPERANE c/ E' COMPOSTA Dfl 1 0 2 BVTES 
560 PI*=IL* 

570 IF LU=2 THEN PI*=IH*+IL* 

580 REM AGGIUNGO LA PARTE OPERANDO ALLR STRINGA OP* 

590 OP*=LEFT*<OP*,PO)+PI*+RIGHT*<OP*,LEN<OP*)-PO) 

600 REM STAMPO CODICE MNEMONICO 
610 PRINT TABC15) i OP* 

620 REM E' TERMINATO IL DISRSSEMBLHGGIO DI UNA LINEA DI PROGRAMMA 
630 REM CAMBIO LINEA 
640 SD=SD+LU+1 

650 REM L'INDIRIZZO NON PUÒ' SUPERARE IL VALORE DI C2T16-1) 

660 SD=SD-INT<SD72T16)*2T16 

670 REM ORA RBBIRMO A DISPOSIZIONE TRE COMANDI 

680 REM S-SOSPENDE TEMPORANEAMENTE LA STAMPA 

690 REM R : SI VUOLE DISASSEMBLARE DA UN NUOVO INDIRIZZO 

700 REM F-FINE PROGRAMMA 

701 REM PULISCO IL BUFFER DI INGRESSO 

702 FOR 1=1 TO 13 GET A* : NEXT I 
710 A=PEEK<197> 

720 IF A=13 THEN GOTO 710 
730 IF A®17 THEN GOTO 290 

740 IF R=21 THEN PRINT "rUffl":QOSUB21300 -END 
750 GOTO 360 

760 REM INIZIANO LE ROUTINES 

9990 REM R0UTINE : CH1EDE LA LOCAZIONE DA CUI INIZIARE A DISASSEMBLARE 
10000 INPUT “««INDIRIZZO, IN ESADECIMALE ",SD* 

10010 REM CONTROLLO CHE IL NUMERO SIA EFFETTIVAMENTE ESADECIMALE 
10020 IF SD*="" THEN SD=0 RETURN 
10030 1=1 

10040 C*=MID*CSD*,I,1) 

10050 IF <C*>="0" AND C*<="9"> OR <C*>= U A" AND C*<="F"> THEN GOTO 10100 

10060 REM LA CIFRA NON E' ACCETTABILE 

10070 PRINT "«ATTENZIONE, UNA CIFRA ESHDECIMRLE" 

10080 PRINT "NON PUÒ' CONTENERE IL CARATTERE ",C* 

10090 GOTO 10000 
10100 1 = 1+1 

10110 IF I<=LEN(SD*> THEN GOTO 10040 

10111 REM TOLGO GLI EVENTUALI ZERI NON SIGNIFICATIVI IN TESTA ALLA CIFRA 

10112 IF LEN(SD*)=1 THEN GOTO 10120 

10113 IF LEFT*<SD*,1>="0" IHEN SDS=RIGHT*<SD»,LEN<SD*)-1):GOTO 10113 

10114 IF SD*="" THEN GOTO 10020 

10120 REM IL NUMERO E' CORRETTO. CONTROLLO CHE NON SUPERI LE 4 CIFRE 

10130 IF LEN<SD*X=4 THEN GOTO 10180 

10140 PRINT "«ATTENZIONE, GLI INDIRIZZI A DISPOSIZIONE" 

10150 PRINT "«VANNO DA 0000 A FFFF" 

10160 GOTO 10000 

10170 REM ORA POSSO CONVERTIRE LA CIFRA SD* IN DECIMALE 
10180 SD=0 

10190 FOR I=LEN(SD*) TO 1 STEP -1 
10200 REM CERCO IL CARATTERE IN ES* <15) 

10210 J=0 

10220 IF ES*<J)=MID*<3D*,1,1) THEN GOTO 10260 

10230 J=J+1 

10240 GOTO 10220 

10250 REM CARATTERE TROVATO 

10260 SD=SD+J*16t(LEN(SD*)-I) 

10270 NEXT I 
10280 RETURN 

19990 REM ROUTINE:CONVERTE LA CIFRA IN CN IN UNA STRINGA ESADECIMALE DI 4 CIFRE 
20008 1=1 
20010 CN*="" 

20020 IF CN=0 THEN GOTO 20080 
20030 RE=CN-INT(CN716)*lb 
20040 CN*=ES*CRE)+CN* 

20050 CN=INTCCN/16) 

20060 1=1+1 
20070 GOTO 20020 

20080 IF I<5 THEN CN*="0"+CN* 1=1+1 GOTO 20080 
20090 REM CONVERSIONE TERMINATA 
20100 RETURN 

20990 REM ROUTINE:CARICA LA PARTE OPERANDO NELLE DUE STRINGHE IH*,IL* 

21000 IL*="" : IH*="" 

21010 IF LU=0 THEN RETURN 
21020 IL=PEEK<SD+1) 

21030 REM CONVERTO IL PRIMO,EVENTUALMENTE UNICO BVTE DI INDIRIZZO,IN ESADECIMALE 
21040 CN=IL 
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che dovrà assumere 
l’operando di tale 
istruzione (linea 540). Si 
dovrà poi controllare da 
quanti bytes è composto 
l’operando (linea 560, 570), 
aggiungerlo alla stringa 
0P$ nella giusta posizione 
(linea 590) e visualizzare 
infine il contenuto di 0P$, 
cioè l’istruzione Assembler 
con il relativo operando 
(linea 610). 

Terminato così il 
disassemblaggio di una 
istruzione, si passa 
all'indirizzo della 
successiva (linea 640), si 
controlla che non sia 
maggiore di 2 l6 -l (che 
corrisponde all'esadecimale 
FFFF) e, nel caso lo fosse, 
lo si pone pari a 0 (linea 
660). Il programma 
continua la sua esecuzione 
fino a quando non sia 
immesso da tastiera uno 
dei seguenti comandi: S per 
interrompere 
momentaneamente 
l’esecuzione (linee 710, 720), 
R per introdurre un nuovo 
indirizzo di partenza (linea 
730) e F per terminare 
l'esecuzione del programma 
(linea 740). 


21056 GOSUB 20000 
21055 1L*=RIGHT*CCN*,2> 

21060 REM CONTROLLO SE C'E' UN SECONDO BYTE DI INDIRIZZO 
21070 IF LU=1 THEN RETURN 
21080 IH«PEEK<SD+2> 

21090 CN=IH 
21100 GOSUB 20000 
21105 iH*=RI GHT* C CN*, 2 > 

21110 RETURN 

21200 REM ROUTINE RITORNO NI COLORI NORMALI 
21300 POKE53280,14 P0KE5328I-6 
21310 PRINT"ri", 

21320 PRINT'CJ" 

21400 RETURN 

29990 REM TAVOLA DEI SIMBOLI 

30000 DATA BRK.-0.0 

30001 DATA "ORH <*,X>”,l,o 

30002 DATA ***,0,0 

30003 DATA +**,0,0 

30004 DATA *+*0,0 

30005 DATA OPH 1,1,5 
30086 DATA Hai. *,1.5 

30007 ‘.IRTA +**,0,0 

30008 DATA PHP.0,0 

30009 DATR ORR #*,1,6 

30010 DATA ASL,0,0 

30011 DATA ***,0,0 

30012 DATA ***,0,0 

30013 DATA ORH *,2,5 

30014 DATA ASL *,2,5 

30015 DATA ***,0,0 

30016 DATR BPL *,1,5 

30017 DATA "ORH <*>,V,1,6 

30018 DATA ***,0,0 

30019 DATA ***,0,0 

30020 DATA ***,0,0 

30021 DATA “ORA *,X“,1,5 

30022 DATA "ASL *,X",1,5 

30023 DATA ***,0,0 

30024 DATA CLC,0,0 

30025 DATA "ORA *,Y“,2,5 

30026 DATA ***,0,0 

30027 DATA ***,0,0 

30028 DATA ***,0,0 

30029 DATA "ORA *,X",2,5 

30030 DATA "ASL *,X“,2,5 

30031 DATA ***,0,0 

30032 DATA JSR *,2,5 

30033 DATR "AND <*,X>“,1,6 

30034 DATA ***,0,0 

30035 DATA ***,0,0 

30036 DATA BIT *,1,5 

30037 DATA AND *,1,5 

30038 DATR ROL *,1,5 

30039 DATA ***,0,0 

30040 DATA PLP,0,0 

30041 DATA AND #*,l,6 

30042 DATA ROL,0,0 

30043 DATA ***,0,0 

30044 DATA BIT *,2,5 

30045 DATA AND *,2,5 

30046 DATA ROL *,2,5 

30047 DATA ***,0,0 

30048 DATA BMI *,1,5 

30049 DATA "AND <*>,Y“,1,6 

30050 DATA ***-0,0 

30051 DATA ***,0,0 

30052 DATA ***,0,0 

30053 DATA "AND *,X",1,5 

30054 DATA “ROL *,X",1,5 

30055 DATA ***,0,0 

30056 DATR SEC,0,0 

30057 DATA "AND *,Y",2,5 

30058 DATA ***,0,0 

30059 DATA ***,0,0 

30060 DATA ***,0,0 

30061 DATA "AND *,X",2,5 

30062 DATA "ROL *,X",2,5 
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30063 DATA ***-0,0 

30064 DATA RT1-0,0 

30065 DATA "EOR (»),VM,6 

30066 DATA ***,0,0 

30067 DATA ***,0,0 

30068 DATA ***,0,0 

30069 DATA EOR *,1,5 

30070 DATA LSR *,1,5 

30071 DATA ***,0,0 

30072 DATA PHA,0,0 

30073 DATA EOR #*,1,6 

30074 DATA LSR,0,0 

30075 DATA ***,0,0 

30076 DATA JMP *,2,5 

30077 DATA EOR *,2,5 

30078 DATA LSR *,2,5 

30079 DATA ***,0,0 

30080 DATA BVC *,1,5 
•38081 DATA "EOR. <$>,V", 1,6 

30082 DATA ***,0,0 

30083 DATA ***,0,0 

30084 DATA ***,0,8 

30085 DATA “EOR *,X“,1,5 

30086 DATA "LSR *,X“,1,5 

30087 DATA ***,0,0 

30088 DATA OLI,0,0 

30089 DATA "EOR $,Y",2,5 

30090 DATA ***-0-0 

30091 DATA ***,0,0 

30092 DATA ***-0,0 

30093 DATA "EOR *,X",2,5 

30094 DATA "LSR *,X“,2,5 
30895 DATA ***,0,0 

30096 DATA RTS-0,0 

30097 DATA "ADC ($,X>",1,6 

30098 DATA ***,0,0 

30099 DAI A ***,0,0 

30100 DATA ***,0,0 

30101 DATA ADC *,1,5 

30102 DATA ROR *,1,5 

30103 DATA ***,0,0 

30104 DATA PLA-0,0 

30105 DATA ADC #*,1,6 

30106 DATA ROR,0,0 

30107 DATA ***,0,0 
30106 DATA JMP (*>,2,6 

30109 DATA ADC *,2,5 

30110 DATA ROR *,2,5 
30Ì11 DATA ***,0,0 

30112 DATA BVS *,1,5 

30113 DATA "ADC <*>,V",1,6 

30114 DATA ***,0,0 

30115 DATA ***,0,0 

30116 DATA ***,0,0 

30117 DATA "ADC *-X",1,5 

30118 DATA "ROR *,X",1,5 

30119 DATA ***,0,0 

30120 DATA SEI,0,0 

30121 DATA "ADC *,V",2,5 

30122 DATA ***,0,0 

30123 DATA ***,0,0 

30124 DATA ***,0,0 

30125 DATA "ADC *,X“,2,5 

30126 DATA "ROR $,X‘\2,5 

30127 DATA ***,0,0 

30128 DATA ***,0,0 

30129 DATA "STA C$,X>*',1,6 

30130 DATA ***,0,0 

30131 DATA ***,0,0 

30132 DATA STY $,1,5 

30133 DATA STA $,1,5 

30134 DATA STX $,1,5 

30135 DATA ***,0,0 

30136 DATA DEY,0,0 

30137 DATA ***,0,0 

30138 DATA TXA,0,0 

30139 DATA ***,0,0 

30140 DATA STY $,2,5 
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30141 URTA STR $,2,5 

30142 DRTR STX $,2,5 

30143 DRTR ***,0,0 

30144 DRTR BCC $,1,5 

30145 DRTR "STR <$>,V",1,6 

30146 DRTR ***,0,0 
3014? DRTR ***,0,0 

30148 DRTR "STV $,X",1,5 

30149 DRTR "STA $,X“,1,5 

30150 DRTR "STX $,V",1,5 

30151 DRTR ***,0,0 

30152 DRTR TVA,0,0 

30153 DRTR "STA $,Y",2,5 

30154 DRTR TXS,0,0 

30155 DRTR ***,0,0 

30156 DRTR ***,0,0 
3015? DATA "STR $,X",2,5 

30158 DRTR ***,0,0 

30159 DRTR ***,0,0 

30160 DRTR LDV #$,1,6 

30161 DRTR "LDR ($,X)",1,6 

30162 DRTR LDX #$,1,6 

30163 DRTR ***,0,0 

30164 DRTR LDV $,1,5 

30165 DRTR LDR $,1,5 

30166 DRTR LDX $,1,5 
3016? DRTR ***,0,0 

30168 DRTR TRV,0,0 

30169 DRTR LDR #$,1,6 
301?0 DRTR TRX,0,0 

30171 DRTR ***,0,0 

30172 DRTR LDV $,2,5 

30173 DRTR LDR $,2,5 

30174 DRTR LDX $,2,5 

30175 DRTR ***,0,0 

30176 DRTR BCS $,1,5 

30177 DRTR "LDR <$),Y",1,6 

30178 DRTR ***,0,0 

30179 DRTR ***,0,0 

30180 DRTR "LDV $,X",1,5 

30181 DRTR "LDR $,X",1,5 

30182 DRTR “LDX $,V”,1,5 

30183 DRTR ***,0,0 

30184 DRTR CLV,0,0 

30185 DRTR "LDR $,Y".2,5 

30186 DRTR TSX,0,0 
3018? DRTR ***,0,0 

30188 DRTR "LDV *,X".2,5 

30189 DRTR "LDR $,X",2,5 

30190 DRTR “LDX $,Y",2,5 

30191 DRTR ***,0,0 

30192 DRTR CPY #$,1,6 

30193 DRTR “CMP <*,X>",1,6 

30194 DRTR ***,0,0 

30195 DRTR ***,0,0 

30196 DRTR CPY $,1,5 

30197 DRTR CMP $,1,5 

30198 DRTR DEC $,1,5 

30199 DRTR ***,0,0 

30200 DRTR INY,0,0 

30201 DRTR CMP #$,1,6 

30202 DRTR DEX,0,0 

30203 DRTR ***,0,0 

30204 DRTR CPY $,2,5 

30205 DRTR CMP $,2,5 

30206 DRTR DEC $,2,5 
S020, DnTR ***,0,0 

30208 DRTR BNE $,1,5 

30209 DRTR "CMP t$),V",l,6 

30210 DRTR ***,0,0 

30211 DRTR ***,0,0 

30212 DRTR ***,0,0 

30213 DRTR "CMP $,X“,1,5 

30214 DRTR "DEC $,X",1,5 

30215 DhTh ***,0,0 
80216 DRTR CLD,0,0 

30217 DRTR "CMP $,Y“,2,5 

30218 DRTR ***,0,0 




30219 DATA ***, k), h 

30220 I'hiH ***,0,0 
3022Ì WTfl "Clip *,X'\2,S 

30222 DATA 'DEC *,X",2,5 

30223 DATA ***,0,0 

30224 DATA CPX #*,1,6 

30225 DATA "SBC <*,X>“,1,6 

30226 DATA ***,0,0 
3022? DATA ***,0,0 
30228 URTA CPX *,i,5 
3022» BRTR SBC *,1,5 

30230 URTA INC 4,1,5 

30231 DATA ***, 0,0 

30232 DATA IHX.0,0 

30233 DATA SBC #*,1,6 

30234 DATA NOP,0,0 

30235 BRTR ***,00 

30236 DATA CPX *,2,5 
3023? DATA SBC *,2,5 
30238 BRTR INC *,2,5 
30230 BRTR ***,0,0 

30240 BRTR BEO *,1,5 

30241 BRTR "SBC <*>,V',1,6 

30242 DATA ***,0,0 

30243 DATA ***.,0,0 

30244 BRTR ***,0,0 

30245 BRTR "SBC *,X",1,S 

30246 ERTA "INC *,X",1,5 
3024? DATA ***,0,0 

30248 BRTR $EB,0.0 

30249 BRTR "SBC *,V".2.5 

30250 BRTR ***,0,0 

30251 BRTR ***,0,0 

30252 DATA ***,0,0 

30253 BRTR "SBC *,X",2,5 

30254 BRTR "INC *,X“,2,5 

30255 BRTR ***, 0,0 

60960 PER ROUTINE 1HIZIHLIZZAZI0HE COSTANTI 

60980 REM CIRCUITO VIDEO 

61000 VI=53248 

61020 S£M CIRCUITO SUONO 

61040 SI=54272 

e 1&S0 REM MEMORIA VIDEO 

61080 riV=1024 

sii00 REM MEMORIA COLORE 

si 120 MC=55296 

t-1140 REM COSTANTI Di USO COMUNE 
Si160 2L=9 

61180 REM INIZIflLIZZAZIONE CHIP SUONO 

61200 FOR 1=0 TO 24 

61210 POKE SI+1,0 

61220 NEXT 1 

61230 RETURN 

61980 REM ROUTINE STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO iN PO* 

62000 GOSUB 61000 

62010 POKE VI+32,15 

62020 POKE VI+33,15 

62030 PRINT "3SMMS", 

62040 PRINT TAB(6>, " r- 3 " 

62050 FOR 1 = 1 TO 5 

62066 PRINT TRBX6);"I i“ 

62070 NEXT I 

62080 PRINT TRB(6>, " - -- 

62090 PRINT TRB<6i, " SlftWlMWDIGITR «RETURN® PER PROSEGUIRE" 

62100 PRINT "«UBUi" 

62110 FOR i=l TO 5 
62120 PRINT TAB<?>, 

62130 FOR J=1 TO 26 
62140 PRINT "(Sa ", 

62150 NEXT J 
62160 PRINT 
62170 NEXT I 

62190 REM ORfi SCRIVO IL TÌTOLO 

62210 PRiNT "«SONMlWli", TRB((40-LEN(PG*)i/2); “sfS";PG* 

62220 OET Z9* 

62230 IF Z9*OCHR*iI3> THEN GOTO 62220 
G2240 PRINT "n#“, 

62250 RETURN 







Labirinto 



La costruzione di un labirinto è un’operazione comune nella progetta¬ 
zione di molti videogiochi. Il sistema più semplice consiste nel definire 
il disegno di un labirinto una volta per tutte, assegnando ad ogni punto 
del video un opportuno carattere. In questo modo però il giocatore si tro¬ 
verà di fronte sempre lo stesso labirinto, e in breve tempo imparerà a 
conoscerlo perfettamente. 

Per evitare questo inconveniente è possibile progettare il programma in 
modo tale che ad ogni esecuzione sia costruito un labirinto diverso dai 
precedenti. 

Un altro difetto, riguardante soprattutto i piccoli computer, è rappre¬ 
sentato dallo spazio limitato fornito dal video per la visualizzazione del 
labirinto. Il programma che sarà presentato permetterà di superare an¬ 
che questa limitazione e di rendere quindi il gioco il più interessante 
possibile. 

Lo scopo didattico di questo programma è quello di mostrare come si 
possano generare schemi che rispettino certe condizioni (nel caso dei la¬ 
birinti deve comunque esistere un collegamento tra l’ingresso e l’usci¬ 
ta), e come si possa utilizzare la memoria per immagazzinare un disegno 
che non è riportato interamente sul video, ma visualizzato parzialmente 
mano a mano che il giocatore avanza nel labirinto. 

Ciò rende più difficile e interessante il gioco, in quanto il giocatore, non 
potendo vedere l’intero labirinto, non si può rendere conto se si trova 
su un percorso che gli permetta di raggiungere l’uscita. 


Il programma che si vuole realizzare dovrà simulare l’attraversamento 
Analisi del di un labirinto. Per rendere più interessante il gioco sarà inoltre previ- 

problema sta * a possibilità 

■ di costruire labirinti sempre diversi 

■ di rendere l’attraversamento del labirinto più difficile tenendone na¬ 
scosto lo schema al giocatore e visualizzando solo la strada già percorsa 

■ di imporre un tempo massimo per raggiungere l’uscita, posta in bas¬ 
so a destra, partendo dall'angolo in alto a sinistra del video. 

Il giocatore dovrà avere a disposizione alcuni comandi che gli permetta¬ 
no di spostare il cursore (il quale individua la posizione raggiunta) nella 
direzione che desidera; qualora il cursore vada ad urtare contro un osta¬ 
colo, il giocatore dovrà essere avvertito da un segnale sonoro. Infine, una 
volta raggiunta l’uscita del labirinto, il programma lo segnalerà facendo 
lampeggiare il video, se invece il tempo a disposizione finirà prima, do¬ 
vrà visualizzare l’intero labirinto e la posizione raggiunta dal giocatore. 
In entrambi i casi sarà proposta alPutente la possibilità di effettuare un 
altro tentativo. 

Lo schema del labirinto, tenuto nascosto al giocatore, sarà rappresenta¬ 
to in memoria; ogni volta che il cursore sarà spostato sul video, l’opera¬ 
zione sarà ripetuta sulla rappresentazione dello schema nella memoria. 
Dalla rappresentazione nascosta sarà possibile determinare se il curso¬ 
re ha urtato un muro del labirinto e riprodurre questo fatto con il segna¬ 
le sonoro. 

Dovremo quindi costruire una matrice (LA) di dimensioni 25x40 i cui 
elementi corrisponderanno ai punti del video. In base al codice memo¬ 
rizzato in un elemento della matrice sarà possibile capire se nel punto 
corrispondente del labirinto c’è un muro o un corridoio percorribile dal 
cursore. I punti percorribili saranno rappresentati dal codice 32 (blank) 
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e quelli occupati dal muro dal 160. Questa tecnica, utilizzata per la me¬ 
morizzazione di disegni nei calcolatori dedicati alla grafica, permette di 
associare ad ogni punto del video un elemento della matrice; ad esempio 
LA (3,2) corrisponde al punto del video posto all’incrocio tra la terza riga 
e la seconda colonna. 

Il programma dovrà ora costruire il labirinto. Tutti gli elementi della ma¬ 
trice LA saranno inizialmente posti a 160 (muro). Sarà poi tracciato il 
percorso di uscita dal labirinto a partire dal primo punto in alto a sini¬ 
stra che sarà posto a 32. Ogni tre passi, generando casualmente (con l’u¬ 
so della funzione RND) un numero compreso tra 0 e 9, si sceglierà una 
delle quattro possibili direzioni (alto, basso, destra, sinistra) dando una 
leggera preferenza alle direzioni verso destra e verso il basso. Infatti, in 
base al numero generato si prenderanno le seguenti decisioni: 


■ numeri 0 -h2: 

■ numeri 3-s-5: 

■ numeri 6 e 7: 

■ numeri 8 e 9: 


sarà posto a 32 l’elemento della matrice a destra del¬ 
l’elemento attuale (30% dei casi) 
sarà posto a 32 l'elemento sotto a quello attuale (30% 
dei casi) 

sarà posto a 32 l’elemento sopra a quello attuale 
(20% dei casi) 

sarà posto a 32 l’elemento a sinistra dell’elemento 
attuale (20% dei casi). 


In ogni caso, prima di porre a 32 uno degli elementi della matrice così 
individuati, sarà necessario accertarsi che l’elemento esista, cioè che non 
si trovi al di fuori del video (se ad esempio ci si trova già sul margine 
sinistro non sarà possibile spostarsi a sinistra). Per verificare se effetti¬ 
vamente è stato costruito un percorso che permette di raggiungere l'u¬ 
scita, si controllerà il punto nell'angolo in basso a destra: quando l'ele¬ 
mento di LA corrispondente a questo punto sarà stato posto a 32 il per¬ 
corso sarà stato completato. Per rendere poi più complicato il labirinto 
saranno inseriti, sempre casualmente, almeno altri 10 percorsi alterna¬ 
tivi a forma di L, sparsi nel labirinto, che andranno ad intrecciarsi con 
il percorso precedentemente determinato. Avremo così la certezza di co¬ 
struire ogni volta un labirinto diverso, perché il programma determina 
casualmente sia il tracciato del percorso principale, sia il numero e la 
posizione dei percorsi alternativi. 

Per tenere nascosto al giocatore lo schema del labirinto il programma 
provvederà a visualizzare solo gli otto punti che si trovano intorno al cur¬ 
sore mano a mano che questo avanza. 

Il tempo massimo per raggiungere l’uscita del labirinto sarà determina¬ 
to utilizzando la variabile di sistema TI$ legata all’orologio interno. Se 
tale tempo massimo sarà superato, il programma visualizzerà l'intero la¬ 
birinto tramite istruzioni cicliche FOR che permetteranno di riportare 
sul video i valori di ogni elemento della matrice LA. Il lampeggiamento 
del video, nel caso che il giocatore riesca ad arrivare all’uscita del labi¬ 
rinto, sarà ottenuto sempre con istruzioni cicliche FOR che permetteranno 
di visualizzare, in rapida successione, la cornice e lo sfondo del video in 
diversi colori scelti casualmente. Infine i comandi digitati dal giocatore 
per spostare il cursore saranno riconosciuti, come visto in altri program¬ 
mi precedenti, in base al codice ASCII del carattere raffigurato sul tasto 
premuto. 

Tali comandi saranno: 


■ P per spostarsi verso l’alto 

■ . per spostarsi in basso 

■ ; per spostarsi a destra 

■ L per spostarsi a sinistra. 
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Diagrammi 
di flusso 


Dopo Vinizializzazione delle 
costanti e la stampa del 
titolo, il programma 
presenta il menù dei 
comandi che il giocatore 
può utilizzare. Nella fase 
successiva si memorizza in 
ogni elemento della matrice 
LA il numero 160 (muro); si 
passa poi alla 
determinazione casuale (e 
alla memorizzazione) di un 
percorso (labirinto) che 
unisce l’ingresso del campo 
di gioco con l'uscita. 

Quindi si inizia a generare 
una serie di percorsi a 
forma di L, che saranno 
associati a caso a quello 
originario; essi 
rappresentano strade senza 
uscita, e il loro numero 
non deve essere inferiore 
a 10. 

Si passa poi alla 
realizzazione del gioco vero 
e proprio con la stampa del 
campo di gioco e 
Vinizializzazione del timer. 

A questo punto il 
programma attende che il 
giocatore digiti un 
comando per spostare il 
cursore. 


La variabile Tl$ è iemalizzata 
per la determinazione del 
tempo di gioco 



START 


Inizializzazione 


j Stampa del titolo 

+ 4 — 

Z Stampa menù 

comandi 




* 



Visualizzazione 
del campo 
di gioco 



inizializzazione 
del timer 




Z Attesa di 

un comando 

~ 

© 




Ogni elemento di LA 
è posto pari a 160 
(muro del labirinto) 


I percorsi senza uscita 
generati casualmente 
sono almeno 10, e sono 
memorizzati in LA insieme 
al labirinto iniziale 
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Spostato il cursore si 
esegue un controllo 
tendente a verificare se è 
stata guadagnata l'uscita 
(questo controllo è 
naturalmente superfluo 
all’inizio del gioco, ma 
servirà per gli spostamenti 
successivi). Qualora sia 
stata raggiunta l'uscita è 
stampato un messaggio ed è 
visualizzato il labirinto 
percorso, quindi si 
domanda al giocatore se 
intende intraprendere una 
nuova partita. In caso 
affermativo, il programma 
torna a stampare il menù 
comandi, in caso negativo 
cessa l'esecuzione. 

Ora è necessario 
determinare il tempo 
utilizzato dall’inizio del 
gioco: se è trascorso più di 
un minuto (tempo massimo 
concesso) il programma 
stampa un messaggio col 
quale avverte che il tempo 
a disposizione è scaduto, 
visualizza tutto il labirinto 
e domanda se si vuole 
giocare ancora. Nel caso in 
cui il tempo non sia 
scaduto, si effettuano due 
ulteriori controlli. 

Con il primo si verifica che 
il punto determinato sia 
all’interno dello schermo: 
se non è così il programma 
invia un segnale acustico e 
torna ad attendere un 
nuovo spostamento. Nel 
secondo controllo si 
verifica che la posizione del 
cursore corrisponda ad un 
punto percorribile del 
labirinto; in caso contrario 
è visualizzato l'ostacolo 
e si torna ad attendere un 
nuovo spostamento. 

Nel caso in cui i controlli 
siano superati con esito 
positivo, si tracciano le 
pareti del labirinto relative 
al punto in esame e si 
torna ad attendere la 
mossa successiva. 



Visualizzazione 
labirinto 
completo e 
lampeggio 


Messaggio 
di congratulazioni 


Spostamento cursore 
nella nuova posizione 





4<r NO 



< 


È nello schermo? 


SI 






Messaggio 
e visualizzazione 
labirinto 






© 

< Si vuole 
giocare ancora? 

^ NO 


END 
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Il programma 


Il programma comincia 
con l’inizializzazione delle 
costanti e con la 
presentazione del titolo, 
utilizzando a tale scopo le 
routines 61000 e 62000, 
rispettivamente. Seguono il 
dimensionamento della 
matrice LA (linea 140) e la 
presentazione su video di 
un messaggio con 
l'indicazione dell'uscita del 
labirinto, la lista dei tasti 
che il giocatore deve 
utilizzare per effettuare gli 
spostamenti del cursore e 
l'avviso che la costruzione 
del labirinto è in atto (linee 
151 + 162). Nelle linee 
190 + 230 vi è il doppio ciclo 
utilizzato per porre il 
codice 160 in tutti gli 
elementi della matrice LA. 
Si entra poi nella fase di 
costruzione del percorso, ed 
è quindi inizializzato 
un generatore casuale 
(linea 322) utilizzalo per 
determinare la direzione 
che di volta in volta 
prenderà il tracciato. 
Successivamente si 
stabilisce in 3 il numero 
minimo dei passi (elementi 
di LA) del percorso 
per ogni direzione (linea 
324) e si inizializzano gli 
indici di percorso R e C 
(linea 330) che conterranno 
rispettivamente i numeri di 
riga e di colonna relativi 
alla posizione del cursore. 
La linea 340 pone 
inizialmente a 32 (blank) 
l’elemento LA (0,0), punto 
di partenza del tracciato; 
nel seguito la stessa linea 
servirà per porre a 32 gli 
altri punti del percorso che 
via via saranno determinati. 
Si incontrano quindi 
l'istruzione di controllo che 


0 REM *********** 

1 REM «LABIRINTO* 

2 REM RffRlMlIflffPf 

4 REM VARIABILI UTILIZZATE 


6 REM PO* 

7 REM I,J 

8 REM DI 

9 REM PA 

10 REM R,C 

11 REM R1,C1,R2,C2 

12 REM A* 

13 REM RP,RS 

14 REM CP,C3 

15 REM PCI 

16 REM DELL'IUTERO 

17 REM R 

18 REM NR,NC 

19 REM TM 



PEP 

WP 

ALTO" 


BASSO" 

a; 

DESTRA" 


SINISTRA" 


: MEMORIZZA IL TITOLO DEL PROORRMMR 
ICONTATORI DI CICLO 

iDIREZIONE DEL PERCORSO INORESSO-USCITR DURANTE LA COSTRUZIONE 
INUMERÒ DI PASSI PRTTI NELLA ATTUALE DIREZIONE 
iCOORDINATE DEL PUNTO IN ESAME 
I COORDINATE DEI VERTICI DELLA L 
iINPUT DA TASTIERA 

UNDICI DELLE RI OHE INTORNO AL CURSORE 
iINDICI DELLE COLONNE INTORNO AL CURSORE 

iINDIRIZZO DEL PUNTO DA ACCENDERE DURANTE LA VISUALIZZAZIONE 
LABIRINTO 
iINPUT DA TASTIERA 

'COORDINATE DELLA NUOVA POSIZIONE DEL 0I0CRT0RE 
iTEMPO TRASCORSO IN 60-ESIMI DI SECONDO 
100 REM TITOLO ED INI2IALI2ZAZI0NE COSTANTI C64 
110 PO*="L A B I R I N T 0“ 

120 OOSUB 62000 

130 REM DIMENSIONO ARRA? 

140 DIM LA<24,39> 

150 REM MESSAGGI PEP IL GIOCATORE 

131 PRINT "I*",' 

152 PRINT TABO0).! “L A B I R I N T 0" 

133 PRINT "JOTL'USCITA DEL LABIRINTO E' NELL'ANGOLO" 

134 PRINT "SIN BASSO A DESTRA" 

133 PRINT "BRI® PEP SPOSTARTI DIGITA" 1 

136 PRINT 
157 PRINT 

138 PRINT 

139 PRINT 

160 REM MI POSIZIONO SULLA 23-MA RIGA 

161 POME 214-22 ! PRINT 

162 PRINT "IISATTENDERE, LABIRINTO IN COSTRUZIONE*!" 

180 REM IL LABIRINTO E' PRIMA COMPLETAMENTE RIEMPITO DI OSTACOLI. 

190 FOR 1=0 TO 24 
200 FOR J=0 TO 39 
210 LACI, .0=32+128 
220 NEXT J 
230 NEXT I 

240 REM ORA COSTRUISCO IL PERCORSO DALL'ANGOLO IN ALTO A SINISTRA 
230 REM ALL'ANGOLO IN BASSO A DESTAR 

280 REM IL PEPCOPSO VIENE COSTPUITO CASUALMENTE RISPETTANDO I SEGUENTI VINCOLI 

290 REM CI SONO OURTTRO DIREZIONI POSSIBILI'ALTO.BASSO.DESTRA 

300 REM CON DESTRA,BASSO LEGGERMENTE PIU' PROBABILI DI ALTO E SINISTRA 

310 REM 0..21DESTRA!3..51BASSO; 6 ..7'ALTO 18..9'SINISTRR 

311 REM IN UNA DIREZIONE DEVE RNDRPC! ALMENO PER TRE PASSI 

320 PEM TERMINO OURNDO P=24 ' C=39 

321 REM INIZIALIZZO GENERATORE CASUALE 

322 DI=RND<-TI> 

323 REM NUMERO DI PASSI =3 

324 PA=3 
330 R»0iC“0 
340 LR<R,C>=32 

330 IF R=24 AND C=39 THEN GOTO 460 

331 IF PRO THEN GOTO 370 

332 PA=0 

360 DI«INT(RND<DI)*10? 

370 IF DIO THEN C=C+tiQOTO 410 

380 IF DI<6 THEN R=R+1'G0T0 410 

381 IF DIO THEN R«R-1 'GOTO 410 
390 C»C-1 

400 REM CONTROLLO CHE LA POSIZIONE NON SIA FIJ0P1 LABIRINTO 

410 IF C=40 THEN C=39 

411 IF C*-l THEN C=0 

420 IF P=25 THEN R=24 

430 IF R=-l THEN P.=0 

431 REM INCREMENTO NUMERO DI PASSI FATTI 

432 PA=PA+1 
440 GOTO 340 
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permette di sapere se si è 
finito di costruire il 
percorso principale (linea 

350) e quella che verifica il 
numero dei passi (linea 

351) . La direzione del 
percorso è determinata 
nelle linee 370+390 in base 
al valore assunto dal 
generatore casuale della 
linea 360; si verifica poi se 
tale direzione non comporti 
l'uscita del tracciato 
dall'area di costruzione del 
labirinto (linee 410 + 430). 
Alla linea 432 è 
incrementato il numero di 
passi fatti prima di tornare 
a determinare un nuovo 
tratto di percorso (linea 
440). Finito di costruire il 
percorso principale, sono 
selezionati dieci percorsi 
alternativi a forma di elle. 
Per fare questo si calcolano 
casualmente le coordinate 
dei vertici di una elle (linee 
490, 500 e 520, 530) e si 
costruisce il relativo 
percorso (linee 550 + 620). Si 
ripetono tali istruzioni fino 
alla costruzione dei dieci 
percorsi alternativi (linea 
660). Si utilizza poi la 
funzione RND per generare 
un numero casuale in base 
al quale sarà stabilito (con 
una probabilità del 70%) se 
costruire ancora una L 
(linea 680). Quando il 
numero generato dalla 
funzione RND è maggiore 
di 0,7 la costruzione del 
labirinto ha termine, ed è 
visualizzata la richiesta di 
iniziare il gioco (linea 692). 
La linea 693 realizza il loop 
di attesa del carattere di 
inizio. Ricevuta la richiesta, 
sono inizializzate le 
coordinate del cursore ai 
valori 0,0, in modo che esso 
sia posto nella prima casella 
in alto a sinistra (linea 710); 
si cancella poi il video (linea 
712) e si colora la cornice in 
verde (linea 730). È poi 
inizializzata la variabile di 


450 REM ORA COSTRUISCO DEI PERCORSI ALTERNATIVI CHSURLI H FOPMR DI L 
460 REM I PERCORSI SONO ALMENO 10 
470 1=1 

4S0 REM CRLCOLO LE COORDINATE DI UN VERTICE DELLA L 
490 R1=INTIRND<R1>*25) 

500 C1=INT'RND'T1)*40> 

510 REM CALCOLO COORDINATE SECONDO VERTICE DELLA L 
520 R2=INT<RND<R2>*25> 

530 C2=INT(RNDCC2X40) 

540 REM COSTRUISCO LR L 

550 FOR J=R1 TO R2 STEP S0NCR2-R1> 

560 LACJ,C1>=32 
530 NEXT 3 

590 FOR 3- CI TO C2 STEP SGNIC2-C1) 

610 LACR2,J>=32 
620 NEXT 3 

630 REM HO COSTRUITO UNA L 
640 REM ORA VEDO SE HO TERMINATO 
650 1=1+1 

660 IF Kll THEN GOTO 490 

670 REM ORR CON PROBABILITÀ' DEL 70X NE COSTRUISCO ALTRI 
680 IF RNDC0X.7 THEN OOTO 490 

690 REM IL LABIRINTO E' COSTRUITO, CHIEDO DI INIZIARE IL GIOCO 

691 POKE 214,22-PRINT 

692 PRINT "PER INIZIARE DIGITA SRETURN5 

693 GET A*' IF A*OCHR*< 13) THEN GOTO 693 
700 REM INIZIRLIZZO COORDINATE DEL GIOCATORE 

710 R=0-C=0 

711 REM CANCELLO IL VIDEO 

712 PRINT 'TT 

720 REM COLORE DELLA CORNICE IN VERDE 

730 POKE VI+32,5 

731 REM INIZIRLIZZO IL TEMPO 

732 TIf="000000" 

740 REM DISEGNO OLI OTTO CARATTERI INTORNO AL GIOCATORE 
750 GOSUB 10000 

760 REM DISEGNO IL GIOCATORE NELLA SUA POSIZIONE 
770 POKE MV+C+RB40,81 
780 POKE MC+C+R*40,2 

790 REM CONTROLLO SE IL GIOCATORE HA VINTO 
300 IF P=24 AND C=39 THEN GOTO 2000 

810 REM CONTROLLO SE E' TERMINATO IL TEMPO A DISPOSIZIONE 

820 IF TIf>”000100" THEN GOTO 3000 

830 REM LEGGO DIREZIONE IMPOSTATA DA TASTIERA 

840 R=PEEK(197) 

850 REM CALCOLO LE COORDINATE DELLA NUOVA POSIZIONE 

851 NR*R■NC=C 

860 IF A*41 THEN NR=R-1 : OOTO 500 
370 IF R=44 THEN NR=R+1'■GOTO 900 
880 IF R=42 THEN NC=C-1 GOTO 900 
890 IF R=50 THEN NC=C+1 GOTO 900 

e91 REM NON E' STATO IMPARTITO ALCUN COMANDO, RIPETO L'INPUT 
892 GOTO 840 

899 REM CONTROLLO CHE LA NUOVA POSIZIONE SIA ACCETTABILE 

900 IF NR<0 OR NR>24 THEN GOSUB 20000-GOTO 820 
910 IF NC<0 OR NC>39 THEN GOSUB 20000 GOTO S20 
920 IF LR<NP,NC)032 THEN GOSUB 20000'GOTO ?20 
930 REM LA NUOVA POSIZIONE E' ACCETTABILE 

940 R=NR 
950 C=NC 

960 PEM RICOMINCIA IL CICLO PRINCIPALE 
970 GOTO 750 

1990 REM IL GIOCATORE E' USCITO DAL LABIRINTO ; CONGRATULAZIONI 
2000 TM=TI 

200! REM HO MEMORIZZATO IL TEMPO IMPIEGATO 

2009 FOR 1=1 TO 30 

2010 REM CAMBIO COLORE ALLA CORNICE ED ALLO SFONDO 
2020 POKE VI+32,INTCRNB<0>*16) 

2030 POKE VI+33,INT<RND(0)*16) 

2031 REM RITARDO 

2032 FOR J=i TO 50-NEXT 3 
2040 NEXT I 




sistema TIS, che servirà per 
visualizzare il tempo 
impiegato per raggiungere 
l'uscita o per determinare 
la fine del gioco nel caso in 
cui sia superalo il tempo 
massimo. La linea 750 
passa il controllo alla 
routine 10000 che 
determina (linee 
10000+10070) e visualizza 
(linee 10090+10150) gli otto 
caratteri intorno al cursore. 
Quindi è visualizzato il 
cursore (linee 770, 780) e si 
controlla se questo si trova 
nel punto di uscita del 
labirinto (linea 800), nel 
qual caso il controllo passa 
alla linea 2000, dove si 
memorizza il tempo 
impiegato ad uscire dal 
labirinto. Nelle linee 
successive è situato il ciclo 
che permette di. 
visualizzare in rapida 
successione lo sfondo e la 
cornice del video in diversi 
colori determinati 
casualmente (linee 
2009 + 2030). 

Si visualizza poi il tempo 
impiegato e si chiede se si 
vuole giocare nuovamente 
(linee 2060+2090). La linea 
2100 chiama la routine 
60000 che gestisce l'input 
del carattere digitato dal 
giocatore e controlla se è 
un DE LETE (nel qual caso 
cancella il carattere 
precedente) o se è un 
RETURN. Se è un RETURN 
il controllo torna alla linea 
2110 che verifica se il 
giocatore ha chiesto di 
giocare nuovamente. 

Nel caso che sia stata 
effettuata tale richiesta il 
programma torna alla linea 
151 e costruisce un nuovo 
labirinto, altrimenti riporta 
lo schermo ai colori 
normali (linee 2140+2170) e 
termina. 

Nel caso che il cursore non 
sia arrivato all’uscita, il 
programma controlla se è 


2041 REM SFONPO E CORNICE IN OPIOIO 

2042 POKE VI+32,15 

2043 POKE VI+33,15 

2050 REM VISURLIZZO IL TEMPO E CHIEPO SE SI. VUOLE OIOCRPE flNCOPP 
2060 PRIMT'T?' J 

2065 POR 1 = 1 TO 10 : OET RJ’NEXT ! REM CANCELLO BUFFER 
2070 PRINT "HnUBPRVO, SEI USCITO DAL LABIRINTO" 

2080 PRINT "SIN INTCTM/60+.5>:" SECONPI." 

2090 PRINT "TOIBVUOI RIPROVARE ? CS/N1 

2100 ZL=1 : G0SUB 60000 PRINT 

2110 IF INf="S" THEN 00T0 151 

2120 REM IL OIOCO E" TERMINALO 

2140 POKE VI+32,14 

2150 POKE VI+33,6 

2160 REM CARATTERI IH OPIOIO 

2170 PRINT »T 

2180 PRINT “39H" 

2130 ENP 

2380 PEM IL TEMPO A PISPOSIZIONE E' TERMINATO.MANBO MESSAOOIO, VISUALIZZO IL 
2990 PEM LABIRINTO E CHIEPO SE SI VUOL GIOCARE ANCORA 
3000 PRINT 'COTII SPIRCE, MAI IMPIEGATI TROPPO” 

3010 PRINT "iJTEMPO. " 

3020 PRINT "NMHWOTNMPIOITA SFETURNB PER ESAMINARE IL” 

3821 PRINT "ILABIRINTO” 

3030 OET Af-IF AfOCHRJ(13> THEN GOTO ”030 

3080 REM VISUALIZZO IL LABIRINTO 

3090 FOR R1=0 TO 24 

3100 FOR C1=0 TO 39 

3110 P0=R1*40+C1 

3120 POKE MV+PO • LA<°1 • Ol} 

3130 POKE MC+P0.5 
3140 NEXT CI 

3150 NEXT PI 

3151 REM VISUALIZZO IL 0I0CATOPE 

3152 POKE MV+P+40+C,SI 

3153 POKE MC+RR^O+c.2 
3160 REM RITARDO 

3170 FOR 1=0 TO 4000■NEXT I 

3175 FOR 1 = 1 TO 10:OET A*:NEXT I : REM CANCELLO BUFFER 
3180 REM ORA CHIEPO SE SI VUOL GIOCARE ANCORA 
3190 PRINT “ZUraOB" 

3200 GOTO 2090 

9000 REM INIZIANO LE ROUTINES 

9980 REM ROUTINE DISEGNA OLI OTTO CARATTERI INTORNO AL GIOCATORE 

10000 RP-R-1 

10010 RS=R+1 

10020 CP=C-1 

10030 CS=C+1 

10040 IF RPC0 THEN RP=0 

10050 IF RS>24 THEN RS=24 

10060 IF CP<0 THEN CP=0 

10070 IF CS>39 THEN CS-39 

10080 REM ACCENPO I PUNTI INTORNO AL GIOCATORE 

10090 FOR R1=RP TO RS 

10100 FOR C1=CP TO CS 

10110 PO=R1*40+C1 

10120 POKE MV+PO,LA<RI,CI) 

10130 POKE MC+PO,5 
10140 NEXT CI 
10150 NEXT RI 
10200 REM HO TERMINATO 
10210 RETURN 

19990 REM ROUTINE : EMETTE UN BEEP PER SEGNALARE UNA MOSSA ERRATA 

20000 POKE SI,0 

20010 POKE 51+1,50 

20020 POKE SI+5,15 

20030 POKE SI+6,240 

20040 POKE SI+24,15 

20050 POKE SI+4,33 

20060 REM RITARDO 

20070 FOR 1=1 TO 50:NEXT I 

20080 POKE SI+4,0 
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terminato il tempo a 
disposizione (linea 820), 
legge con una PEEK (linea 
840) la direzione desiderata 
dal giocatore e, a seconda 
del carattere immesso, 
trasferisce il controllo alle 
diverse sezioni preposte 
alla gestione degli 
spostamenti (linee 
860+890). Queste, qualora 

10 spostamento richiesto 
porti il cursore a urtare 
contro un muro (linea 920) 
o a uscire dallo schermo 
(linee 900, 910), attivano la 
routine 20000, di 
generazione suoni, per 
avvertire il giocatore. Se 
invece lo spostamento 
richiesto è ammissibile lo 
si effettua (linee 940, 950) e 

11 controllo torna al ciclo 
principale (linea 970), che 
ricomincia visualizzando 
gli otto caratteri intorno 
alla nuova posizione del 
cursore. 

Infine, se si supera il 
tempo massimo previsto 
senza che il giocatore 
riesca a uscire dal 
labirinto, si passa alle linee 
3000+3021 che visualizzano 
il messaggio: «Mi spiace, 
hai impiegato troppo 
tempo. Digita RETURN per 
esaminare il labirinto». Nel 
caso in cui sia digitato 
RETURN sono visualizzati 
l'intero labirinto (linee 
3090 + 3150) e la posizione 
in cui si trovava il cursore 
(linee 3152, 3153), quindi è 
attivato un loop che 
permette di mantenere 
l'immagine sul video per 
un certo periodo (linea 
3170). Anche in questo caso 
il programma domanda se 
si vuole giocare ancora 
(linea 3200). 


20090 POKE SI+24,0 
20100 RETURN 

59920 REM ROUTINE CESTISCE L'INPUT DI UNA STRINGR ALFANUMERICA 
59930 REM LE VARIABILI UTILIZZATE SONO ; Z6, Z7,Z8, Z9, 28#,IN* 

59940 REM IN INGRESSO VUOLE IL VRLORE ZL CHE E' LA LUNGHEZZA MASSIMA DELLA 
59950 REM STRINOA DA LEGGERE 

59960 REM IN USCITA DA' LR STRINGA LETTA IN IN* E LA SUA LUNGHEZZA IN Z9 

59980 REM CANCELLO LR ZONA DI SCHERMO IN CUI 'iERER' DIGITATA LA STRINGA 

60000 FOR Z8=l TO ZL' PRINT " •NEXT 28 

60010 FOR Z3-1 TO ZL' PRINT "11"; 'NEXT Z8 

60020 IN*="“:Z7=TI 

60040 REM LEGGO UN CARATTERE 

60060 GET ZS* : IF Z8*<>"" THEN 60160 

60080 REM ACCENSIONE E SPEGNIMENTO DEL CURSORE 

60100 IF Z7CTI AND N0T(Z6> THEN PRINT "Sii"J :Z6=N0T<Z6> :Z7=TI+1S 

60110 IF Z7CTI AND Z6 THEN PPINT " II"; :Z6=N0T<Z6> :Z7=TI + 15 

60120 GOTO 60060 

60140 REM E' STATO DIGITATO UN CARATTERE 
60160 Z8-RSCCZ8*):Z9=LEN(IN*> 

60180 REM SE NON E' UN CARATTERE ALFANUMERICO/ DEVE ESSERE UN RETURN 0 DELETE 

60200 IF N0T<(Z8>47 AND Z8<58) OR <Z8>64 AND 2801 >> THEN GOTO 60320 

60220 REM CONTROLLO CHE NON SIA STATA SUPERATA LA LUNGHEZZA MASSIMA 

60240 IF Z9=ZL THEN GOTO 60060 

60260 REM LO AGGIUNGO ALLA STRINGA IN* 

60280 I N#= IN#+ZS*SPRINT Z8*; :GOTO 60060 

60300 REM SE E' UN RETURN/ HO TERMINATO LR LETTURA 

60320 IF Z8=13 THEN PRINT ” II"; - RETURN 

60340 REM SE E' DELETE. CANCELLO IN IN* E SUL VIDEO L' ULTIMO CARATTERE DIGITATO 
60360 IF Z8«20 RND Z9>0 THEN IN*=LEFT#<IN#,Z9-1>:PRINT " HI";:GOTO 60060 
60370 GOTO 60060 

60960 REM ROUTINE:INIZIRLIZZRZIONE COSTANTI 

60980 REM CIRCUITO VIDEO 

61000 VI=53248 

61020 REM CIRCUITO SUONO 

6104G SI=54272 

61060 REM MEMORIA VIDEO 

61080 MV=1024 

61100 REM MEMORIA COLORE 

61120 MC=55296 

61140 REM COSTANTI DI USO COMUNE 
61160 ZL=9 

61180 REM INIZIRLIZZRZIONE CHIP SUONO 

61200 FOR 1=0 TO 24 

61210 POKE SI+1,0 

61220 NEXT I 

61230 RETURN 

61980 REM ROUTINE:STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PG* 

62000 GOSUB 61000 
62010 POKE VI+32,15 
62020 POKE VI+33,15 

62030 print "nrosiH"; 

62040 PRINT TAB(6> ; " i-1” 

62050 FOR 1=1 TO 5 

62060 PRINT TRBC6);" I I" 

62070 NEXT I 

62080 PRINT TAB<6>;* 1 -:- - 

62090 PRINT TABC6)" WSMKflUSKDIOITA SRETURNB PER PROSEGUIRE" 

62100 PRINT "5D5TOI" 

62110 FOR 1=1 TO 5 
62120 PRINT TRBC7); 

62130 FOR J=1 TO 26 
62140 PRINT "!SS "J 
62150 NEXT J 
62160 PRINT 
62170 NEXT I 

62190 REM ORA SCRIVO IL TITOLO 

62210 PRINT "5SroiMFBTO , ';TAB<<40-LEN<PO*)>X2);"5n";PG* 

62220 GET 29* 

62230 IF Z9*OCHR*<13> THEN GOTO 62220 
62240 PRINT "IM"; 

62250 RETURN 


139 









li gioco della vita 

Il programma che sarà illustrato intende rappresentare, in un certo sen¬ 
so, le dure regole della sopravvivenza. Sappiamo infatti che un numero 
troppo esiguo di «individui» comporta l’estinzione di una specie per dif¬ 
ficoltà nella riproduzione, e che un numero troppo elevato provoca una 
selezione naturale con l’eliminazione degli individui più deboli, ad esem¬ 
pio per la difficoltà di reperire cibo sufficiente per tutti. Esiste invece 
un punto di equilibrio che permette la sopravvivenza e la riproduzione 
di un numero di individui più o meno stabile. Il nostro programma si¬ 
mulerà questa semplice legge naturale rappresentando un «territorio» 
in una zona del video (pensiamo ad esempio ai territori di caccia di una 
tribù preistorica) e dando la possibilità al giocatore di inserirvi un certo 
numero di stelle (che rappresentano gli abitanti che lo popolano): a se¬ 
conda del numero di stelle inserito si verrà a determinare una situazio¬ 
ne di sovrappopolazione, di sottopopolazione o di equilibrio che sarà in¬ 
dividuata utilizzando alcuni parametri stabiliti. Il programma, parten¬ 
do dalla configurazione datagli dal giocatore, calcolerà una seconda «ge¬ 
nerazione» di stelle (cioè il numero di individui che si troverà su quel 
territorio dopo una generazione, in base alla legge di sopravvivenza) e 
tutte le generazioni successive, fino a che non sia impartito il comando 
che ferma l’esecuzione. Poiché la popolazione che può sopravvivere in 
uno stesso territorio varia in base alle condizioni sociali e tecnologiche, 
il lettore potrà modificare l’ampiezza del territorio e i parametri che de¬ 
terminano il tasso di natalità e di mortalità delle stelle (che rappresenta¬ 
no gli individui) apportando delle semplicissime modifiche ad alcune li¬ 
nee del programma. 


. ..... Il programma che intendiamo realizzare dovrà quindi essere in grado 

Analisi del 6 

problema ■ di individuare un’area di memoria dove il giocatore possa inserire la 

configurazione iniziale di stelle 

■ di gestire i comandi necessari per questo inserimento 

■ di calcolare una nuova generazione di stelle modificando quella ini¬ 
ziale in base ai parametri stabiliti 

■ di assumere la generazione così calcolata come nuova generazione ini¬ 
ziale per poter stabilire e presentare anche le successive. 

La prima soluzione che viene in mente per inserire le stelle in un’area 
di memoria è di dimensionare una matrice. In questo caso, però, per ren¬ 
dere più veloce l’esecuzione del programma, individueremo direttamen¬ 
te un’area di memoria stabilendo l’indirizzo della prima e dell’ultima cella 
dell’area che si vuole riservare. Sarà scelta, in questo caso, l'area dove 
è collocata la memoria del video (dall’indirizzo 1024 al 2023); ciò per¬ 
metterà di inserire i dati direttamente nella cella di memoria corrispon- 
dente alla posizione del cursore tramite istruzioni POKE, che vi memo¬ 
rizzeranno i codici dei caratteri digitati da tastiera (42 per stella e 32 
per blank, cioè zona vuota). La scelta di questa particolare area di me¬ 
moria consentirà inoltre la visualizzazione diretta dei caratteri che vi sono 
memorizzati. 

Per calcolare la nuova generazione sarà necessario verificare il numero 
delle stelle che circondano ogni locazione della memoria del video scelta 
per collocarvi il territorio. Si pensi al quadretto di un quaderno e agli 
otto che lo circondano; il quadretto in questione corrisponde alla loca¬ 
zione di memoria video da analizzare, mentre gli otto circostanti rappre¬ 
sentano le locazioni nelle quali si deve verificare se è presente o no una 
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stella. L'area di memoria dove saranno memorizzate le stelle avrà la con¬ 
figurazione illustrata qui sotto. 
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J Punto preso in considerazione 



Punti circostanti 



Cornice necessaria perché ogni punto 
sia circondato da otto punti 


; ~j Area utile 


Utilizzando due istruzioni cicliche FOR annidate, si verificherà il nume¬ 
ro delle stelle che circondano ogni punto e si determinerà, in base ai pa¬ 
rametri stabiliti, se nella nuova generazione il punto dovrà essere lasciato 
invariato, se vi si dovrà collocare una stella o se si dovrà eliminare la 
stella eventualmente presente. La nuova generazione così determinata 
sarà memorizzata in una seconda area di memoria di dimensioni uguali 
alla prima e individuata analogamente, con la sola differenza che, non 
trattandosi della memoria del video, i caratteri non saranno visualizzati. 
A richiesta del giocatore sarà trasferita la configurazione della seconda 
area di memoria nella prima, e quindi sarà visualizzata la nuova genera¬ 
zione sullo schermo. 

Sarà possibile partendo dalla seconda generazione ottenerne una terza, 
dalla terza una quarta e così via, fino a che il giocatore non fermi l'ese¬ 
cuzione del programma digitando il tasto F. 

I parametri scelti per determinare le generazioni successive a quella ini¬ 
ziale saranno definiti come segue: 



se le stelle presenti nei punti che circondano quello in esame (che a 
sua volta potrà essere o una stella o un blank) sono in numero inferio¬ 
re o uguale a due il punto in esame non conterrà alcuna stella nella 
successiva generazione 

se il punto è circondato da tre stelle il suo contenuto rimarrà invaria¬ 
to nella successiva generazione 

se il punto è circondato da quattro stelle conterrà a sua volta una stel¬ 
la nella generazione successiva 

se infine il punto è circondato da cinque o più stelle l’eventuale stella 
che conteneva sarà eliminata. 




r - 

aft **»%&*•* 



*•* 1 SM»Il 
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Diagrammi 
di flusso 


Nella prima fase il 
programma esegue uria 
verifica per controllare se 
la sua base è stata 
spostata. In caso negativo 
invia un messaggio 
contenente le istruzioni 
necessarie per attuare lo 
spostamento e termina 
l’esecuzione; in caso 
positivo stampa il titolo e 
inizializza le costanti. 
Quindi, individuate le 
locazioni di partenza e di 
arrivo delle due zone di 
memoria che saranno 
utilizzate nel seguito, 
si ha la stampa del menù 
dei comandi messi a 
disposizione del giocatore. 
Segue l’inizializzazione 
della zona di memoria del 
video, le cui celle sono 
riempite di blank (il codice 
ASCII è 32). 

Quindi il programma 
rimane in attesa di uno dei 
comandi previsti nel menù, 
ad ognuno dei quali 
corrisponde un 
movimento del cursore 
nelle quattro direzioni o 
l'accensione/spegnimento di 
una stella. 

Impostata la 

configurazione iniziale, per 
ottenere la prima 
generazione il giocatore 
deve digitare RETURN. 

A questo punto è spento il 
cursore e si inizia a 
calcolare il numero delle 
stelle da generare nella 
seconda area di memoria. 


o- 


ST4RI 

^ SI 

S„ mp ,d.„„o,o 7 C END 


Inizializzazione 


j Visualizza menù j 


Inizializza 
memoria video 


4 <r— 

Z Acquisizione 
di un comando 




NO 

È RETURN? } 


^ SI 


> 


Esecuzione 
del comando 


GE = 1 




In GE è contenuto il numero 
relativo alla generazione. Qui 
è impostato a 1 per la prima 
generazione 


Prima cella 
del campo 


* 

© 
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Questa operazione è eseguita 
contando i punti accesi 
intorno ad ogni cella; se 
questi sono meno di 3, 
nella seconda area non sarà 
acceso alcun punto, se sono 
3 nella seconda area sarà 
trasferito il contenuto della 
cella in questione, se sono 
meno di 5 nella seconda 
area sarà generata una 
stella. 

Si prosegue con la richiesta 
di un nuovo comando. 
Quindi, letto il comando, si 
controlla se è F (fine 
esecuzione), ed 
eventualmente si termina 
l'esecuzione, mentre se non 
lo è si verifica se è 
RETURN. In questo caso il 
programma, tramite 
l'istruzione POKE, copia la 
seconda area di memoria 
nella prima, per cui si 
otterrà la visualizzazione 
sullo schermo della 

f enerazione calcolata. 

; doveroso ribadire che il 
campo di gioco non è 
nuli'altro che la 
visualizzazione della prima 
area di memoria. 

A questo punto si 
incrementa GE (numero 
delle generazioni) per 
tornare a calcolare una 
nuova generazione di stelle. 


© 

* 



si 


* 4 - 


/ Acquisizione di 
un comando 


“ 

( 


Per proseguire visualizzando 
la prossima generazione 
è necessario digitare 
RETURN 


Si vuole finire? 


NO 


Si vuole 
proseguire? 


SI 


) 

> 


NO 


Per terminare 
l'elaborazione 
è necessario digitare F 



In seguito a questo trasferi¬ 
mento è visualizzata la nuova 
generazione 


Incrementa il contatore delle 
generazioni 
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Il programma 


Il listato del programma 
inizia con l’elenco delle 
variabili utilizzate; segue 
l'avvertimento di spostare 
la base del programma se 
non è già stato fatto (linee 
140+210). La linea 240 affida 
il controllo alla routine 
2070 che, inizializzate le 
costanti avvalendosi della 
routine 1920, visualizza il 
titolo del programma. 

Sono poi inizializzate le 
seguenti costanti: 

— NR (numero righe video 
occupate) e NC (numero 
colonne video occupate) 
alla linea 270; 

— CS e CB, in cui sono 
memorizzati rispettivamente 
il codice che individua il 
carattere stella e quello che 
rappresenta il carattere 
blank (linee 282 e 284); 

— alcune ulteriori costanti 
di uso comune (linea 286). 

La linea 288 attribuisce i 
valori alle variabili RE e 
CE, che individuano il 
numero di righe e colonne 
effettivamente visualizzate. 
Sono quindi determinati gli 
indirizzi della prima e 
dell'ultima cella di ciascuna 
delle due zone di memoria 
utilizzate (linee 300, 301) ed 
è stabilito di presentare sul 
video caratteri grigi (linea 
370), in minuscolo (linea 
320), su sfondo blu (linee 
340, 350). È il caso di 
notare che, avendo impostato 
i caratteri minuscoli, 
affinché il programma 
possa visualizzare lettere 
maiuscole, nella 
compilazione del listato è 
necessario digitare i tasti 
corrispondenti tenendo 
premuto 

contemporaneamente il 
tasto SHIFT. Questi 


@ REM ♦*♦♦♦*♦+♦+•*♦+♦+++++++ 

1 REM *ÌL GIOCO DELLR VITA* 

2 REM ♦«♦♦**»*♦«#♦♦*##***** 
4 REM VARIABILI UTILIZZATE 


6 REM PGf 
? REM NR 

8 REM NC 

9 REM CS 

10 REM CB 

11 REM RE 

12 REM CE 

13 REM MI 

14 REM FI 

15 REM M2,F2 


MEMORIZZA IL TITOLO BEL PROGRAMMA 
NUMERO BI RIGHE VIDEO OCCUPATE 
NUMERO DI COLONNE VIDEO OCCUPATE 
CODICE POKE DEL CARATTERE STELLA 
CODICE POKE DEL CARATTERE BLANK 
NUMERO EFFETTIVO DI RIGHE UTILIZZATE 
NUMERO EFFETTIVO DI COLONNE UTILIZZATE 
INIZIO ZONA VIDEO OCCUPATA 
FINE ZONA VIDEO OCCUPATA 

DELIMITANO LA ZONA DI MEMORIA DOVE VIENE MEMORIZZATA 


16 REM LA NUOVA GENERAZIONE 
1? REM AT •COMANDI IN INGRESSO 

13 REM R,C PUNTATORI DI RIGA E COLONNA NELLA FASE DI EDITINO 

19 REM PC : LOCAZIONE DI MEMORIA NELLA QUALE DEVE APPARIRE IL CURSORE 

20 REM A MEMORIZZA I COMANDI NELLA FASE DI EDITING 

21 REM GE NUMERO DI GENERAZIONI 

22 REM PA : NUMERO DI STELLE INTORNO AL PUNTO IN ESAME 

23 REM PR : VARIABILE DI COMODO 

1C0 REM CONTROLLO CHE LA BASE DEL PROGRAMMA BASIC SIA ALLA LOCAZIONE 16384 
110 IF PEEKC44)=64 THEN GOTO 240 

120 REM AVVERTO CHE IL PROGRAMMA NON PUÒ' ANDARE IN ESECUZIONE 

130 print "rraranr 

140 PRINT "ATTENZIONE, HAI DIMENTICATO" 

150 PRINT "MDI IMMETTERE I SEGUENTI COMANDI:" 

160 PRINT "*»S1> POKE 44,64" 

170 PRINT "MK2> POKE 16384,0" 

180 PRINT "IMPRIMA DI IMMETTERLI RICORDA" 

190 PRINT “MDI SALVARE IL PROGRAMMA, SE QUESTO" 

200 PRINT "IKON E' GIÀ' PRESENTE SU NASTRO," 

210 PRINT "*E POI DI RICARICARLO" 

220 END 

230 REM TITOLO ED INIZIALIZZAZIONE COSTANTI C64 
240 PG*="IL GIOCO DELLA VITA" 

250 GOSUB 2070 

260 REM INIZIALIZZO IL NUMERO DI RIGHE E DI COLONNE DEL CAMPO DI GIOCO 
270 NR=10=NC=10 

280 REM INIZIALIZZAZIONE COSTANTI DI USO COMUNE 

281 REM CARATTERE STELLA 

282 CS=42 

283 REM CARATTERE BIANCO 

284 CB=32 

285 REM VALORI COSTANTI 

286 ZE=0:UN=1 :DU«2:TR=3:QR=4:QU=40 Ql=41 T9=39:MQ=1024 

287 REM NUMERO DI RIGHE E COLONNE EFFETTIVAMENTE VISUALIZZATE 

288 RE=NR-1 : CE=NC-1 

289 REM LOCAZIONI DI PARTENZR E DI ARRIVO DELLE DUE ZONE DI MEMORIA VIDEO USATE 

300 M1=1024+4I F1=M1+CRE-1)*40+CE 

301 M2=2024+41 F2=M2+(RE-1>*40+CE 
310 REM CARATTERI MINUSCOLI 

320 PRINT CHRfC14> 

330 REM SFONDO E CORNICE IN BLU 

340 POKE VI+32,6 

350 POKE VI+33,6 

360 REM CARATTERI IN GRIGIO 

370 PRINT "ir 1 ; 

380 REM SPIEGAZIONE GIOCO 

390 PRINT "H ->L I -LL* XnI*" 

400 PRINT "WER DISEGNARE LA CONFIGURAZIONE DI » 

410 PRINT "^PARTENZA HAI A DISPOSIZIONE " 

420 PRINT "MI SEGUENTI COMANDI:" 

430 PRINT ")SM"; 

440 PRINT "* 


450 PRINT 
460 PRINT 
470 PRINT 
480 PRINT 
490 PRINT "L : 


ACCENDI UN PUNTO»” 

SPEGNI UH PIJNTOM" 

VAI ALLA RIGA PRECEDENTE»” 

VAI ALLA RIGA SUCCESS IVA»' 

VAI ALLA COLONNA SUCCESSIVA*!" 

VAI ALLA COLONNA PRECEDENTE" 

500 PRINT "M5TER PROSEGUIRE DIGITA H-H 
510 GET Ai : IF A$OCHR$< 13> THEN GOTO 510 
520 REM AVVISO DI ATTESA 
530 PRINT"Z1" 

540 POKE 214,23 : PRINT 

550 PRINT "ATTENDERE UN MOMENTO, PREGO", 

560 PEM INIZIA LA FASE DI EDITING 

570 REM INIZIALIZZO LA ZONA VIDEO 1024-2023 

580 FOR 1=1024 TO 2043 

598 POKE I,CB 

6O0 NEXT I 

610 REM LEGGO LA CONFIGURAZIONE DA TASTIERA 
620 GOSUB 1140 

630 REM ORA NELLA ZONA 1024-2023 HO LA CONFIGURAZIONE INIZIALE 

640 REM INIZIA IL PROGRAMMA 

650 REM LA GENERAZIONE ATTUALE E' LA 0 

660 GE=0 

670 REM AVVISO DI ATTESA 
630 PRINT 
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caratteri sono 
rappresentati, all'interno 
del listato, dai simboli 
grafici relativi alla 
digitazione effettuata. 

Come esempio si può 
vedere alla linea 390 la 
rappresentazione della 
scritta maiuscola 
IL GIOCO DELLA VITA 
(il cuoricino iniziale 
corrisponde al tasto 
CLRJHOME). 

Le linee 390 +500 hanno il 
compito di visualizzare 
l'illustrazione dei comandi 
disponibili. Il loop di attesa 
del carattere necessario a 
proseguire è realizzato alla 
linea 510 e la 
visualizzazione del 
messaggio «Attendere un 
momento, prego» alla 550 
(dopo essersi posizionati 
alla 24 a riga del video con 
la POKE della linea 540). 

È poi inizializzata la zona 
di memoria video, costituita 
dalle celle comprese tra 
l’indirizzo 1024 e il 2023, 
memorizzandovi caratteri 
blanks (linee 580+ 600). La 
linea 620 passa il controllo 
alla routine 1140, con la 
quale sono inizializzate le 
coordinate del cursore 
(linee 1140, 1150) ed è 
stampato il messaggio 
«Digita RETURN per 
terminare» (linea 1180). 
Quindi il cursore è 
posizionato in 
corrispondenza della prima 
cella in alto a sinistra della 
zona di memoria 
effettivamente utilizzata 
(linea 1200) e si passa a 
leggere un comando digitato 
da tastiera (linea 1230). Se 
il comando è A si memorizza 
una stella nella cella di 
memoria corrispondente 
alla posizione del cursore 
(linea 1250); se è S nella 
medesima cella di memoria 
si memorizza un blank 
(linea 1270). Per quel che 
riguarda lo spostamento 


690 POKE 214,21 PRINT.. PPINT”" 

700 PRINT "ATTENDERE «4 MOMENTO, PREGO “1 

710 REM CALCOLO NUOVA GENERAZIONE 
720 FOR J-Ml TO FI STEP GU 
722 FOR i=J TO J+CE-i 

740 REM CONTO IL NUMERO DI PUNTI ACCESI INTORNO AL PUNTO I 

760 PA=(PEEK<I-Q1>=CS>+<PEEK(I-0U>=CS>+<PEEI«I-T9)=CS>+<PEEK(I-UN>=CS) 

770 Pfi=PfM-<PEEK(I+UN)=CS)+(PEEK(I+T9)=CS>+(PEEKa+QU>=CS)+(PEEK(I+(31)=CS) 

7S0 PA=-PA 

810 REM CONTROLLO SE IL PUNTO RELATIVO- NELLA ZONA VIDEO 112, DEVE ESSERE ACCESO 

820 REM 0 SPENTO, 0 POSTO PARI A QUELLO DELLA ZONA VIDEO MI 

840 IF PACTR THEN PR=CB GOTO 880 

850 IF PA=TR TMEH PR=PEEK(IV GOTO 880 

860 IF PR=QA THEN PR=C?G0T0 880 

870 PR=CB 

880 POKE I+MQ/PR 

890 NEXT I 

900 NEXT J 

970 REM ORR STAMPO RICHIESTA COMANDO E NUMERO GENERAZIONE 
980 PRINT "!S" 

990 POKE 214,2! PRINT'"' PRINT"" •PRINT"' 1 

1000 PRINT "SL - ! PER PROSEGUIRE. #THPIO n :6E- 

1002 REM PULISCO IL BUFFER 

1004 FOR 1=1 TO 10GET A* 

1005 IF A*="F" THEN GOTO 1040 

1006 NEXT I 

1010 REM ORA LEGGO IL COMANDO 
1020 GET A# : IF A*="" THEN GOTO 1020 
1030 REM E' F? 

1040 IF AT-"F" THEN PPINT CHRJC142V- "r»W«" GOSUB 1893:END 

1041 REM E" O RETURN? 

1042 IF R$OCHR*< 13> THEN GOTO 1020 

1043 REM E' RETURN 

1044 REM COPIO LA ZONA 2 NELLA ZONA 1 

1045 FOR J=M1 TO FI STEP QU 

1046 FOR I=J TO J-fCE-1 

1047 POKE I,PEEK<I+MB) 

1048 NEXT I 

1049 NEXT J 

1050 GE=GE+1 

1058 REM POSSO RICOMINCIARE 

1059 GOTO 680 

1090 REM INIZIANO LE ROUTINES 

1100 REM ROUTINE LEGGE LA CONFIGURAZIONE DA TASTIERA 
1110 REM LO SCHERMO E' GIÀ-" RIEMPITO DI CARATTERI BIANCHI 
1130 REM INIZIRLIZZO POSIZIONE CURSORE 
1140 R=UN 
1150 C=UN 

1160 REM SCRIVO UN AVVISO DALLR RIGA 23 

1170 -POKE 214,21 : PRINT 

1180 PRINT IGITA SU! PER FINIRE" 

1185 PRINT "«-IGITA 8_“l PER PROSEGUIRE"; 

1190 REM POSIZIONO IL CURSORE 
1200 PC=MV+R*QU+C 
1210 POKE PC,PEEK<PC1+128 
1220 REM LEGGO COMANDO 
1230 A=PEEK<19?:> 

1240 REM E' ACCENDI"’ 

1250 IF A=10 THEN POKE PC,CS GOTO 1210 
1260 PEM E' SPEGNI? 

1270 IF R=I3 THEN POKE PC,CB GOTO 1210 
1280 REM E' ALTO'’ 

1290 IF A041 THEN GOTO 1360 
1300 PEM SPENGO CURSORE 
1310 POKE PC,PEEKCPO~128 
1320 REM CAMBIO RIGA 
1330 P=R-UN IF P<UN THEN P=RE 
1340 GOTO 1200 
1350 REM E" BASSO? 

1360 IF R044 THEN GOTO 1430 
1370 REM SPENGO CURSORE 
1380 POKE PC,PEEK'CPC)-128 
1390 REM CAMBIO RIGA 
1400 R=R+UN : IF PCP.E THEN R=UN 
1410 GOTO 1200 
1420 PEM E' DESTPA"’ 

1430 IF AO50 THEN GOTO 1500 
1440 REM SPENGO IL CURSORE 
1450 POKE PC,PEEK<PC>-128 
1460 REM CAMBIO COLONNA 
1470 C-C+U1L IF OCE THEN C=UN 
1480 GOTO 1200 
1490 PEM E' SINISTRA? 

1500 IF AOCS THEN GOTO 1570 
1510 REM SPENGO IL CURSORE 
1520 POKE PC,PEEKCPO-128 
1530 PEM CAMBIO COLONNA 
1540 C=C-UH ; IF C<UN THEN C=CE 
1=150 GOTO 1200 
1560 REM E" RETURN"’ 
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del cursore, se il comando 
è P questo è spostato di 
una riga verso l’alto (linea 
1330), se è . di una riga 
verso il basso (linea 1400), 
se è ; di una colonna verso 
destra (linea 1470) e se è L 
di una colonna verso 
sinistra (linea 1540). 

Quando si digita il tasto 
RETURN il controllo torna 
al programma principale 
(linee 1570+1610) che 
visualizza un messaggio 
di attesa (linea 700) ed 
entra in un doppio ciclo 
per calcolare la nuova 
generazione di stelle. In 
questo doppio ciclo si 
determina il numero di 
stelle presenti nelle celle di 
memoria che circondano 
quella in esame (linee 
760+780) e si decide, in 
base ai parametri scelti, se 
nella cella corrispondente 
della seconda zona di 
memoria deve essere 
memorizzata una stella 
oppure un blank (linee 
840 +880). Il programma 
esce dal ciclo dopo aver 
analizzato tutti i punti 
della configurazione 
iniziale e memorizzato di 
conseguenza la nuova 
generazione nella seconda 
area di memoria. La linea 
1000 stampa poi un 
messaggio di richiesta di 
un comando, e la linea 
1020 realizza il loop di 
attesa del comando. Se si 
digita F il programma 
termina, se invece si digita 
RETURN è copiata (e perciò 
visualizzata) la seconda 
area di memoria nella 
prima (linee 1045+1050) e il 
controllo passa alla linea 
680, dove ricomincia il 
ciclo principale. Il 
programma continua 
quindi a calcolare 
generazioni successive 
fino a quando non 
sia immesso il 
comando F. 


1570 IF noi THEN GOTO 1230 
1580 REM SPENGO CURSORE 
1590 POME PC,PEEKCPC:-128 
1600 REM LA ROUTINE E'" TERMINRTR 
1610 RETURN 

1620 REM ROUTINE GESTISCE L'INPUT CI UNR STRINGR ALFANUMERICA 
1630 REM LE VARIABILI UTILI"ERTE SONO Z6,Z7,Z8,Z9 •~8$,IN# 

1640 REM IN INGRESSO VUOLE IL VALORE ZL CHE E' LR LUNGHEZZA MASSIMfi DELLR 
1650 REM STRINGR DA LEGGERE 

1660 REM IN USCITA PR' LR STRINGO LETTA IN IN* E LR SUA LUNGHEZZA IN Z9 

1670 REM CANCELLO LR ZONA DI. SCHERMO IN CUI VERRÀ' DIGITATA LA STPINGR 

1680 FAR Z8=l TO ZL : PPINT " • NEXT Z3 

1690 FOP Z8=i TO ZL: PPINT "II»; NEXT 28 

1700 IN*=""Z7=TI 

1710 REM LEGGO UN CARATTERE 

1720 GET ZS*IF 28*0'"' THEN 1730 

1730 REM ACCENSIONE E SPEGNIMENTO DEL CURSORE 

1740 IF Z7<T1 AND NOT(Z6> THEN PPINT "SII" : Z6=N0T<Z6^27=TI+15 

1750 IF Z7<TI AND Z6 THEN PPINT " SI", -Z6=N0T<Z6>: Z7=TI+15 

1760 GOTO 1720 

1770 PEM E' STATO DIGITATO UN CARATTERE 
1780 Z8-ASC<ZS*>;29»LEN(IN*> 

1790 REM SE NON E UN CARATTERE ALFANUMERICO,. DEVE FSSEPE UN RETURN 0 DELETE 

1800 IF NOT<<Z8>47 AND Z8<58> OR <Z8>64 AND Z3<91)) THEN GOTO 1860 

1810 REM CONTROLLO CNF NON STA STA T A SUPERATA LR LUNGHEZZA MASSIMA 

1820 IF Z9=ZL THEN GOTO 1720 

1830 REM LO AGGIUNGO ALLA STRINGA IN* 

1840 INf-INt+ZS* PPINT ZS* GOTO 1720 

1350 REM SE E' UN RETURN, HO TERMINATO i.A LETTURA 

1360 IF 28-13 THEN PPINT » II". RETURN 

1370 REM SE E- DELETE, CANCELLO IH IH* E SUL VIDEO L' ULTIMO CARATTERE DIGITATO 
1880 TF 28=20 AND Z«>0 THEN IN*=LEFT*ON*-Z9-l> : PRINT " HI". : GOTO 1720 
1890 G070 1720 

1892 REM ROUTINE-RITORNO AI COLORI NORMALI 

1893 POME 53280,14 POKE 53281.6 

1894 PRINT "13" ; PRINT "0" 

1895 RETURN 

1900 PEM ROUTINE:INIZIALIZZAZIONE COSTANTI 

19I0 REM CIRCUITO VIDEO 

1920 VI=53248 

1930 PEM CIRCUITO SUONO 

1940 51=94272 

1950 PEM MEMORIA VIDEO 

I960 MV=1024 

1970 PEM MEMORIA COLORE 

1980 MC=55296 

1990 PEM COSTANTI DI USO COMUNE 
2000 ZL=9 

2010 REM INIZIALIZZAZIONE CHIP SUONO 

2020 FOR 1=0 TO 24 

2038 POME SI-**.0 

2040 NEXT ì 

2050 RETURN 

2060 REM POLITINE:STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PG* 

20-0 GOSUB 1920 
2080 POME VI+32,15 
2090 POKE VI+33•15 
2100 PRINT "7I*T«*W’ 

3! 10 PRINT TAfCg-, 

2120 FOP 1=1 TO 5 

2130 PRINT TAB<6M"I I" 

2 M0 NEXT I 

2150 PPINT TADlC-i; » 1 - - 

2160 PPINT TAB<6>. “WWRWGFfl SRETURN5 PEP PROSEGUIRE" 

2170 PC* 7 NT 

2X80 FOP l-i TO 5 

?! Q < T » PPINT TRP<7'-.: 

2200 FOP J=1 TO p.e 
-'?\0 PPINT 
22.20 NFXT ’ 

->^À pptnt 
2240 NEXT T 

22*50 PEN OFR SCRIVO IL TITOLO 

22$* ®pìNT TR£«<'in-».rki<P0'f>>/2 , ‘ : "STO" °GT 

2270 0ET ZOT 

??P0 TF Z?TOCHP*<13> THEN GOTO 2270 
?p*0 ppiN^ "h*" 

“000 nrTiiRH 
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Analisi del 
problema 




Memory dump 

Consideriamo ora la realizzazione di un programma che permetta di ef¬ 
fettuare un «dump» della memoria. Il significato letterale del verbo in¬ 
glese «to dump» è «scaricare», il che ci dà già un’idea di cosa vogliamo 
che faccia il nostro programma. Infatti, quando si esegue un dump da 
un calcolatore, sono fornite tutte le configurazioni di cifre binarie pre¬ 
senti in ogni indirizzo di memoria (quindi, in un certo senso, si scarica 
il contenuto delle celle di memoria). Generalmente il calcolatore forni¬ 
sce, oltre alle configurazioni binarie, anche la loro traduzione in numeri 
ottali ed csadecimali.e l’eventuale carattere ASCII corrispondente. L’ASCII 
(American Standard Code for Information Interchange) è appunto un co¬ 
dice che permette di rappresentare i caratteri. 

Usualmente ogni codice è a lunghezza fissa, cioè ogni configurazione è 
caratterizzata dallo stesso numero di bits. In particolare l’ASCII è un co¬ 
dice ad otto bits e permette quindi di rappresentare 2 8 = 256 caratteri, 
a differenza dei codici a 6 bits (BCD, FIELDATA, ecc.), che ne possono 
rappresentare solo 2 6 =64. Se in seguito alla lettura di una locazione di 
memoria è riportato un carattere, non è detto che in quella cella sia me¬ 
morizzato proprio il codice ASCII di quel carattere. Infatti si potrebbe 
verificare l’eventualità che la configurazione di cifre binarie di quella cella 
di memoria sia uguale a quella del codice ASCII di un carattere, pur aven¬ 
do un altro significato. 

Generalmente il dump è effettuato sui grandi calcolatori e i dati relativi 
sono registrati su memoria di massa. Noi invece vogliamo vedere come 
si può progettare un programma che effettui il dump sul C-64 e ne visua¬ 
lizzi i dati sullo schermo. Per motivi di velocità di esecuzione e di spazio, 
limiteremo le informazioni fornite alla traduzione esadecimale delle con¬ 
figurazioni binarie contenute nelle celle di memoria e agli eventuali ca¬ 
ratteri ASCII corrispondenti. Il nostro programma dovrà quindi fornire, 
per un qualsiasi indirizzo di memoria dei 65536 disponibili sul C-64, la 
configurazione di cifre binarie in esso presente (tradotta in esadecima¬ 
le) e il carattere eventualmente codificato da tale configurazione. Inol¬ 
tre il programma potrà fornire, in esadecimale, anche i codici operativi, 
gli operandi, i dati, gli indirizzi, ecc., in cui sono state tradotte le sue stesse 
istruzioni Basic (a partire dalla locazione 2048, 800 in esadecimale). 

Il programma dovrà chiedere, per prima cosa, un indirizzo di partenza 
in esadecimale. Infatti, poiché si fa riferimento per comodità agli indi¬ 
rizzi di memoria usando la notazione esadecimale, prevedremo, anche 
in questo caso, che i dati siano accettati e stampati in questa notazione. 
Dopo aver controllato la correttezza dei simboli usati per introdurre l'in¬ 
dirizzo di partenza, sarà necessario convertire la notazione esadecimale 
in quella decimale per poter leggere con una PEEK il contenuto della cella 
di memoria specificata. Per motivi di spazio saranno stampati su una stes¬ 
sa riga i contenuti di otto celle di memoria successive, evidenziando in 
alto la sequenza degli indirizzi cui si fa riferimento. Successivamente sarà 
necessario controllare se la configurazione binaria di ogni cella di me¬ 
moria corrisponde ad un carattere ASCII stampabile. Se è così il carat¬ 
tere corrispondente sarà determinato (tramite la funzione CHR$) e vi¬ 
sualizzato, altrimenti sarà inserito un punto nella porzione di video do¬ 
ve sono riportati i caratteri. Infine, prima di iniziare a decodificare in 
un'altra riga i successivi otto indirizzi di memoria, si dovrà verificare 
se è stato digitato uno dei comandi previsti: S per sospendere momenta¬ 
neamente la stampa, R per interrompere l’esecuzione del programma e 
fornire un nuovo indirizzo di partenza, ed F per determinare la fine del¬ 
l’esecuzione del programma. 
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Diagrammi 
di flusso 


Il primo blocco del 
diagramma di flusso si 
occupa dell'inizializzazione 
delle costanti e della 
stampa del titolo. 

Nel secondo blocco si 
dimensiona il vettore ES$ e 
vi si memorizzano i simboli 
della codifica esadecimale, 
che saranno utilizzati per 
eseguire le conversioni fra i 
sistemi di numerazione 
(esadecimale-decimale). 

Dopo aver stampalo il 
menù, dei comandi, il 
programma passa a 
visualizzare un messaggio 
nel quale è richiesto 
all'utente da quale 
locazione di memoria deve 
iniziare il dump. 
Successivamente il 
programma legge il valore 
immesso tramite la tastiera, 
e prosegue verificando se 
tale valore è esadecimale. 

In caso di errore 
si stampa il relativo 
messaggio e si chiede 
nuovamente l’indirizzo di 
partenza. Si esegue poi la 
trasformazione della 
stringa, espressa in 
esadecimale, nel 
corrispondente valore 
decimale, che è trasferito 
nella variabile SD. 

È quindi stampato 
l'indirizzo di base (SD 
tradotto in esadecimale) e 
successivamente si entra in 
un ciclo per leggere e 
stampare gli otto bytes 
contenuti nelle locazioni di 
memoria a partire da 
quella puntata da SD. Il 
programma prosegue 
entrando nel ciclo in cui è 
determinato e stampato il 
carattere ASCII, relativo ad 
ogni contenuto letto nel 
loop precedente. 



In ES$ sono immessi i 
simboli relativi alla codifica 
esadecimale 




Inizializzazione 


Dimensionamento e 
memorizzazione 
vettore ESS 





■vi Sl 


L’Indirizzo tradotto 
in decimale è 
trasferito in SD 








Lettura e traduzione 
In esadecimale 
contenuto SD +1 



Stampa contenuto 
della locazione 


; 



Nel loop che segue sono 
lette 8 locazioni di memoria 
consecutive, e il loro 
contenuto è stampato sulla 
stessa riga dell'indirizzo di 
base 
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Il primo blocco che si 
incontra in questo nuovo 
ciclo è quello dove avviene 
la lettura del byte della 
locazione, attraverso la 
funzione PEEK. Poi si 
passa alla trasformazione 
del contenuto in carattere 
ASCII con la funzione 
CHR$, e lo si stampa. Anche 
le istruzioni contenute nei 
blocchi di questo ciclo sono 
ripetute per otto volte. 

Per calcolare la successiva 
locazione di base si 
incrementa la variabile di 
indirizzo SD di otto bytes. 
Infine, per consentire 
all’utente di sospendere 
momentaneamente 
l’esecuzione, di andare ad 
un nuovo indirizzo o di 
uscire dal programma, sono 
inseriti tre blocchi di 
verifica. A ciascuno di essi 
è associato un comando 
che permette di realizzare 
l'operazione scelta. 

Se non è digitato alcun 
comando valido (S, R o F) 
l'elaborazione continua con 
l'esame delle 8 locazioni 
di memoria successive. 


© 

* 


1 = 1 + 1 


NO 


'< 


© 

* 


= 7 ? 


SI 


> 


1 = 0 


4* 


Lettura contenuto 
della locazione SD + I 


In questo loop sono rilette le 
locazioni dì memoria 
stampate nel precedente; gli 
8 codici ASCII ad esse 
corrispondenti sono 
visualizzati sulla medesima 
riga 


Determinazione 
carattere ASCII 
corrispondente 


1 = 1 + 1 


NO 


Z Stampa 

carattere ASCII 

x ~ ZD 


Nel caso in cui non si abbia 
corrispondenza con alcun 
carattere ASCII è stampato 
un punto 


SI 


L'indirizzo di base è 
incrementato di 8 unità per 
la lettura delle locazioni 
successive 


SD=SD+8 


o* 


si 


©<" 


NO 


( 

< 

< 


Sospendere? 


NO 


Ricominciare? 


NO 


Finire? 


^ SI 


)K 

> 

> 


© 
'f* si 


Tasto rilasciato? 


> 


NO 


EN ° 
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Il programma 


Il programma inizia con la 
linea 120, dove è 
memorizzato il titolo nella 
stringa PG$, che sarà 
utilizzata poi nella routine 
62000 chiamata alla linea 
successiva. A tale routine 
è affidata la presentazione 
del titolo e 

l'inizializzazione delle 
costanti (linee 60960+ 62250). 
È successivamente 
inizializzato il vettore ES$, 
usato per le conversioni 
esadecimale-decimale e 
decimale-esadecimale (linee 
180+210). Le linee 231+238 
servono per stampare il menù 
dei comandi. Alla linea 250 
si effettua l'inizializzazione 
della variabile CL, che 
servirà per determinare 
ogni quante linee di dump 
si ristamperanno le 
informazioni relative ai 
dati contenuti in ogni 
colonna che sarà 
visualizzata sullo schermo. 
Il controllo passa poi alla 
routine 10000 che, chiesto 
all'utente l’indirizzo di 
memoria da cui desidera 
iniziare il dump, chiama la 
routine 60000. Questa legge 
il carattere immesso con 
una GET (linea 60060), 
determina il 
lampeggiamento del 
cursore (linee 60100, 60110) 
e verifica se il carattere 
introdotto è alfanumerico, 
RETURN o DELETE (linea 
60200). Nel caso si tratti di 
un DELETE cancella 
l'ultimo carattere digitato e 
ne attende uno nuovo 
(linea 60360); se 
invece si tratta di un 
carattere alfanumerico, 
dopo aver verificato che 
non si sia superata la 
lunghezza massima prevista 


0 REM *««*»**»***»* 

1 REM «MEMORY DUMP* 

2 REM f MU t M W H M W f 

4 REM VARIABILI UTILIZZATE 

6 REM I,J 'CONTATORI PI CICLO 

? REM CL lCONTA LE LINEE STAMPATE- PINO A 20 

8 REM C* :VARIABILE PI COMODO 

9 REM SP : INPIRIZZO DELLA LOCAZIONE DI PARTENZA DEL DUMP 

10 REM DI : USATA NELLA CONVERSIONE ESRDECIMALE-DECIMALE 

11 REM CN 'VALORE DECIMALE DI INORESSO PER LA ROUTINE DI CONVERSIONE 

12 REM CN* ' STRI NO A ESADECI MALE DI USCITA PER LA ROUTINE DI CONVERSIONE 

13 REM RE 'USATA NELLA CONVERSIONE DECIMALE-ESADECIMALE 

14 REM C ! VARIABILE DI COMODO 

15 REM A* 'SERVE PER SVUOTARE IL BUFFER DI INGRESSO 

16 REM R 'USATA PER LEOOERE IL COMANDO DA TASTIERA 

ÌZ REM ES*<I3) 'USATO NELLA CONVERSIONE DECIMRLE-ESRDECIMALE 

110 REM TITOLO ED INIZIALIZZAZIONE COSTANTI C64 
120 PO*="MEMORY DUMP" 

130 OOSUB 82000 

140 REM VIENE ESEOUITO UN DUMP DELLA MEMORIR NEL FCRMRTO ESADECIMALE ED ASCII 
150 REM OONI VENTI RIONE DI STAMPA- VIENE STAMPATO UN SEPARATORE 
160 REM COSTRUISCO IL VETTORE USATO PER LA CONVERSIONE DECIMRLE-ESRDECIMALE 
1S0 DIM ES*(15) 

190 POR 1=0 TO 13 
200 READ ESSI!) 

210 NEXT I 

220 REM CARATTERI IN NERO 

230 PRINT 

231 REM VISURLIZZO IL MENO' DEI COMANDI" 

232 PRINT"HSE VUOI SOSPENDERE TIENI PREMUTO S“ 

234 PRINT”JBE VUOI RICOMINCIARE PREMI R" 

236 PRINT"J55E VUOI FINIRE PREMI P" 

Z3S PAINT"*»" 

240 REM CONTAL INEE 
230 CL*0 

2S0 REM CHIEDO LA LOCAZIONE DI PARTENZA, IN ESADECIMALE 
270 OOSUB 10000 

280 REM IN SD C'E' LR LOCAZIONE DI PARTENZA IN DECIMALE 
290 REM STAMPO SEPARATORE DI QUADRO, SE CL E' 0 

300 IP CL=0 TMEN PRINT “«BASE 00 01 02 03 04 03 06 07 ASCII"'PRINT 

310 REM CONVERTO L'INDIRIZZO IN ESADECIMALE 

320 CN«SD 

330 OOSUB 11000 

340 PRINT CN»; 

330 REM ORA STAMPO I CONTENUTI DELLE 8 LOCAZIONI DA CN R CN+7 
380 FOR 1=0 TO 7 
370 CN=PEEKISD+I) 

380 OOSUB 11000 

390 PRINT TAB'6+3*I);RI0HT*(CN*,2>; 

400 NEXT I 

410 REM HO STAMPATO I CONTENUTI IN ESRDECIMALE 
420 REM ORR STAMPO I VALORI IN ASCII 
430 POR I«0 TO 7 
440 C fl PEEK(SD+I> 

430 REM CONTROLLO SE E' UN CARATTERE STAMPABILE 0 NO 
460 Cf=“." 

470 IF <031 AND CC96) THEN C*=CHR*<C) 

480 REM STAMPO IL CODICE ASCII 
490 PRINT TRB<31YI>;C*; 

300 NEXT I 

310 REM VADO R CAPO 

320 PRINT 

330 REM INCREMENTO INDIRIZZO 
340 SD=SD+8 

330 REM PRIMA DI INIZIARE LA PROSSIMA LINEA- CONTROLLO SE C'E' UN COMANDO 
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di quattro caratteri, lo 
memorizza nella stringa 
IN$ (linea 60280) e ne 
attende uno nuovo. 

Qualora infine venga 
digitato un RETURN (linea 
60320) è restituito il 
controllo alla routine 
10000, che verifica se 
effettivamente l’indirizzo di 
memoria desiderato è 
stato introdotto in 
notazione esadecimale 
(linee 10090+10130). In caso 
negativo è stampato un 
messaggio di avvertimento 
e si chiede nuovamente di 
introdurre un indirizzo di 
partenza (linee 
10110+10130), altrimenti si 
convertono i caratteri 
introdotti in notazione 
decimale (linee 10150+10220) 
e si restituisce il controllo 
alla linea 300. 

È quindi controllata la 
variabile CL e, se questa ha 
valore zero, sono stampate 
le informazioni relative ad 
ogni colonna visualizzata 
(linea 300). Si converte poi 
l'indirizzo di memoria in 
esadecimale chiamando la 
routine 11000, e con 
un'istruzione ciclica FOR 
(linee 360+400) sono lette 
(linea 370), convertite in 
esadecimale (linea 380) e 
stampate (linea 390) le 
configurazioni binarie 
contenute in otto indirizzi 
di memoria adiacenti. Con 
un’ulteriore istruzione FOR 
(linee 430+ 500) sono letti 
nuovamente i contenuti 
delle 8 celle di memoria 
(linea 440), si controlla se 
codificano caratteri ASCII 
stampabili (linea 470) e si 
visualizza il carattere 
corrispondente (linea 490). 
Nel caso in cui la 
rappresentazione ASCII del 
byte non esista è stampato 
un punto. Si determina 
quindi l'indirizzo della 
successiva cella di memoria 
da prendere in esame (linea 


360 REM PULISCO IL BUFFER DI INPUT 
378 FOR 1*1 TO 10'OET A* ' NEXT I 
380 R*PEEKU9?1 

398 REFI SE E' '5' SOSPENDO TEHPOPRNERMENTE LR STRMPfl 

600 IP R»13 THEN OOTO 380 

610 REM SE E' 'F' TERMINR IL PROGRAMMA 

820 IF R*21 THEN PRINT "r®®"tOOSUB 11110'END 

630 REM SE E' 'R' CHIEDO IL NUOVO INDIRIZZO DI DUMP 

640 IF R*17 THEN OOTO 230 

630 REM INCREMENTO IL CONTRLINEE 

568 CL*CL+1 : IF CL-20 THEN CL=0 

670 OOTO 300 

1100 CN**"" 

9990 REM ROUTINE•CHIEDO LR LOCAZIONE DI PRRTENZA, IN ESRDECIMRLE 
10000 PRINT •'Hn.OCRZIONE DI PARTENZA/ “ 

10010 PRINT "MIN ESRDECIMRLE ? 

10020 REM L'INDIRIZZO E' AL PIU' DI 4 CIFRE ESRDECINALI 
10030 ZL=4 

10040 0OSUB 50000'PRINT 

10030 REM CONTROLLO CHE L'INDIRIZZO SIR CORRETTO 
10060 IF IN*»"" THEN SD«0:RETURN 
10070 I«I 

10080 C**MID*UN*,I,1J 

10090 IF CC*>="0" AND C*<="9"> OR <C*>="A" AND C*<*"F") THEN OOTO 10131 
10100 REM LR STRINOR CONTIENE UN CRRRTTERE DIVERSO DA 0..9.R..F 
10110 PRINT "«ATTENZIONE, UN NUMERO ESRDECIMRLE" 

10120 PRINT "«NON PUÒ' CONTENERE IL CARATTERE "JC* 

10130 OOTO 10000 

10131 !■!+! 

IBI 32 IF K*LENCIN*5 THEN OOTO 10080 

10140 REM CONVERTO IN DECIMALE 

10141 3D*0 

10130 FOR I*LEMIN*) TO 1 STEP -1 

10150 REM CALCOLO IL VALORE DECIMALE DEL DIOIT ESADECIMALE IN ESAME 
10170 C**tTIB*<IN*, I,l> 

10180 DI®A8CtC*>-RSC(“0"> 

10190 IF C*>*"R“ THEN DI*RSCCC»>-ASC<"A">+t0 
10200 REM IN DI C'E' UN NUMERO TRA 0 E 13 
10210 S0«SD+DIfI8t<LENCINS)-n 
10220 NEXT I 

10230 REM HO TERMINATO LA CONVERSIONE 
10240 RETURN 

18980 REM ROUTINE'CONVERTE LA CIFRA DECIMALE CONTENUTA IN CN, NELLA STRINOR 
10990 REM ESADECIMALE IN CN* 

11000 CN**"“ 

II0I0 IF CN«0 THEN OOTO II070 
Il020 RE«CN-INT(CN/16>*I6 
11030 CN»INT1CN710) 

11040 CN**ES*<RE1+CN* 

11030 OOTO 11010 

11060 REM LA STRINGA CN* DEVE ESSERE LUNOA 4 CARATTERI 
11870 IF LENCCN*J<4 THEN CN**"0"+CN*'OOTO 11070 
11088 REM CONVERSIONE TERMINATA 
11090 RETURN 

11100 REM ROUTINE'RITORNO AI COLORI NORMALI 
1I1I0 PORE33280,14'P0KE332S1,6 
11120 PRINT"3" 

Il 123 PRINT'Tl" 

II130 RETURN 

49990 REM CIFRE ESADECINALI 

30000 DATA 0,!/2,3,4/3,6,7,8,9,A/B,C,D,E,F 

33281 ,3 

39920 REM ROUTINE'SESTISCE L'INPUT DI UNR STRINOR ALFANUMERICA 
39930 REM LE VARIABILI UTILIZZATE SONO'Z6/Z7,Z8,Z9,Z8*,IN* 

39940 REM IN IN0RES30 VUOLE IL VALORE ZL CHE E' LR LUNGHEZZA MASSIMA DELLA 
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540) ed infine si controlla 
se è stato digitato un 
comando. Se si mantiene 
premuto il tasto S la 
stampa è sospesa (linee 
580 -r 600) fino a che il tasto 
non sia rilasciato. Qualora 
si digiti F il programma 
termina (linea 620). 
Premendo il tasto R invece 
il programma chiede un 
nuovo indirizzo di memoria 
da cui iniziare il dump 
(linea 640). Se non è 
digitato alcun comando 
valido si passa a 
incrementare e a 
controllare la variabile CL 
(linea 660), per visualizzare 
poi il contenuto delle 8 
celle di memoria successive 
(linea 670). 


35550 RER STRINAR DR LECOERE 

35550 REM IN U3CITR OR' LR STRINAR LETTR IN IN* E Lfl SUR LUNGHEZZA IN 23 

35580 RER CANCELLO Lfl ZANA DI SCHERMO IN CUI VERRÀ' DIOITHTA LR STRINAR 

50000 POR 28*1 TO 2L< PRINT " " '■ NEXT 20 

50010 FOR Z8 a l TO ZL ! PRINT "tt"; • NEXT 20 

50020 IN**"".'Z7*TI 

50040 RER LECCO UN CRRRTTERE 

50000 OET Z8* : IF 28*0"" THEN 00160 

60030 REM ACCENSIONE E SPEONIRENTO DEL CURSORE 

50100 IF Zrr.ll RND N0TCZ6) THEN PRINT 'W i ■ Z6 a N0TCZ6> IZ7«TI+13 

50110 IF Z7CTI RND 26 THEN PRINT " II";'26*N0TCZ6> :Z7»TI + 13 

60120 GOTO 60050 

50140 RER E' STATO DICI TATO UN CRRRTTERE 

60160 Z8«flSCCZ8*>’Z9=LENCIN*> ‘ 

60100 REM SE NON E' UN CRRRTTERE ALFANUMERICO, DEVE ESSERE UN RETURN 0 DELETE 

60200 IF N0TCCZSM7 RND Z8C305 OR <Z8>64 RND Z8<91>> THEN DOTO 50320 

60220 RER CONTROLLO CHE NON SIR STRTR SUPERRTR LR LUN0HE2ZR RRSSIRR 

60240 IF 29*ZL THEN OOTO 60060 

60260 RER LO ROOIUNOO RLLR STRINOR IN* 

60280 IN**IN*+Z0* : PRINT Z8»;:OOTO 60060 

60300 RER SE E' UN RETURN, HO TERMINATO Lfl LETTURA 

60320 IF 20*13 THEN PRINT " II"; 'RETURN 

60340 RER SE E' DELETE, CANCELLO IN IN* E SUL VIDEO L' ULTIMO CRRRTTERE DIOITRTO 
60360 IF 28*20 RND Z9>0 THEN IN**LEFT*< IN», 29-1 >: PRINT " 1*1"J • OOTO e0060 
60370 GOTO 60060 

60950 RER ROUTINE : INIZIRLIZZR2IONE COSTANTI 

60980 RER CIRCUITO VIDEO 

61000 VI*93248 

61020 REM CIRCUITO SUONO 

61040 SI*34272 

61060 RER RERORIR VIDEO 

61080 MV*1024 

61100 REM RERORIR COLORE 

61120 RC*33296 

61140 REM COSTANTI DI USO COMUNE 
51160 ZL»9 

51180 REM INIZIRLIZZRZIONE CHIP SUONO 

61200 FOR 1=0 TO 24 

61210 POKE SI+1,0 

61220 NEXT I 

61230 RETURN 

61980 REM ROUTINE : STRMPR IL TITOLO DEL PROORRRMR MEMORIZ2RT0 IN PO* 

62000 OOSUB 61000 
52010 POKE VI+32,13 
62020 POKE VI+33,15 

6Z030 print "nrojnB" ; 

6Z040 PRINT TRB<6>i“ t -i“ 

62030 POR 1=1 TO 5 

62060 PRINT THB(5);"I I" 

62070 NEXT I 

62080 PRINT TAB<6>,"' - - - 

62090 PRINT TRBC6> ; " SWIOTTOIHD101TR RETURN* PER PROSEGUIRE" 

62100 PRINT "BIOTTO)" 

52110 FOR 1=1 TO 3 
6Z120 PRINT THB<7j; 

62130 FOR J=1 TO 26 
62140 PRINT "!*S 
62130 NEXT J 
62160 PRINT 
62170 NEXT I 

62130 REM OPR SCRIVO IL TITOLO 

62210 PRINT " H TOP OTTOIS " ; TRBt <40-l.EN<P0*) V2>;" IH" ; PO* 

62220 OET 29* 

62230 IF 29*OCHR*C131 THEN OOTO 62220 
62240 PRINT "Da"; 

62230 RETURN 
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Archivio 



L’utilità, se non la necessità, di disporre di grandi quantità di informa¬ 
zioni è sempre più evidente in molti campi dell’attività umana. Si pensi 
agli uffici di immatricolazione di vetture, agli uffici elettorali, al fisco, 
alle prefetture, alle imprese, all’anagrafe. Tutti questi uffici, e molti al¬ 
tri, si trovano a dover gestire grandissime quantità di dati e di nominati¬ 
vi, e hanno quindi enormi problemi di catalogazione e di conservazione. 
Per questi motivi si va diffondendo sempre più la gestione dei dati con 
l’ausilio del calcolatore. I computer offrono infatti la possibilità di me¬ 
morizzare le informazioni su supporti magnetici (nastri, dischi, ecc.) che, 
a parità di ingombro, possono contenere un numero di dati molto più ele¬ 
vato rispetto ai supporti cartacei. Vengono offerti anche altri vantaggi: le 
informazioni così memorizzate possono essere lette, modificate e cancel¬ 
late molto più velocemente, utilizzando appositi programmi che svolgono 
queste funzioni. Inoltre, la conservazione dei dati si può paragonare a 
quella di un archivio tradizionale: un file di dati (schedario) è diviso in 
records (schede) a loro volta divisi in campi (le informazioni contenute in 
una scheda: cognome, nome...). La gestione dei dati è invece effettuata 
mediante programmi (sostituiscono gli impiegati che una volta dovevano 
cercare le schede, inserirle, modificarle, ecc.) che leggono i dati memoriz¬ 
zati sui supporti magnetici, li caricano nella memoria centrale e qui ese¬ 
guono le operazioni che eventualmente sono state richieste. Inoltre poiché 
i dischi, i nastri, ecc. possono essere conservati per periodi di tempo molto 
lunghi, presentano, da questo punto di vista, le stesse caratteristiche dei 
supporti cartacei, e in più possono essere cancellati e riutilizzati. 

Il programma che presentiamo vuol essere un esempio di come si possa 
gestire un archivio mediante un calcolatore. 


All’atto di memorizzare le informazioni su supporto magnetico è possi- 
Analisì dal bile definire diversi tipi di files, che si distinguono tra di loro per strut- 

problema tura e modalità di accesso. In particolare, sull’unità a disco del CBM-64 

si possono creare 

■ files sequenziali, che hanno struttura ed accesso sequenziale, il cui di¬ 
fetto principale è legato proprio a questa loro natura, in quanto devo¬ 
no essere ogni volta letti dall’inizio alla fine 

■ files random, o files ad accesso diretto, che permettono di leggere ogni 
singolo record del file senza dover leggere ogni volta l'intero file. Ogni 
record occupa necessariamente un blocco del dischetto, cui si può ac¬ 
cedere utilizzando i numeri di traccia e di settore che lo individuano 

■ «relative files», anch’essi ad accesso diretto, che permettono di divi¬ 
dere i files in records scegliendone anche la lunghezza; a sua volta 
ogni record può essere diviso in campi delle dimensioni volute. Non 
è quindi necessario che un record abbia lunghezza uguale ad un bloc¬ 
co perché sono previsti dei «puntatori» che individuano l'inizio di cia¬ 
scun record. 

Poiché il relative file offre una maggiore flessibilità d’uso e la possibili¬ 
tà di dividere i records in campi, sarà conveniente utilizzare questo tipo 
di file per la creazione e la gestione di un archivio: sarà così possibile 
utilizzare un campo per ogni informazione desiderata (cognome, nome 
e telefono in questo caso). La scelta di un file ad accesso casuale (come 
un «relative file») impedisce l’utilizzo di un’unità a nastro, in quanto que¬ 
sta permette solo la gestione sequenziale dei dati. 

Stabilito il tipo di file più adatto alla memorizzazione di una certa cate- 
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goria di dati, analizziamo quali sono le operazioni che dovrebbe essere 
in grado di svolgere un programma di gestione di un archivio: 

■ creazione dei files che compongono l'archivio 

■ scelta del file su cui si vuole operare 

■ inserimento dei dati in un record 

■ modifica dei dati di un record 

■ cancellazione di un record 

■ stampa di un singolo record 

■ stampa di un intero file 

■ cancellazione di un intero file. 

Per semplificare la sua struttura, il nostro programma dovrà invece es¬ 
sere in grado di svolgere solo le seguenti operazioni: 

■ creazione dei files 

■ scelta del file su cui si vuole operare 

■ inserimento dei dati in un record 

■ visualizzazione dei records di un file 

■ cancellazione di un intero file. 

La creazione di un file è un’operazione molto semplice; infatti il program¬ 
ma dovrà solo aggiungere il nome scelto dall’utente per individuare il 
file nell’apposita istruzione OPEN che serve a crearlo sul disco. Poiché 
si vuole creare un «relative file», l’istruzione OPEN avrà la configura¬ 
zione che permette di stabilire la lunghezza dei records del file. Sarà 
necessario inoltre memorizzare, nel primo record, un valore che permet¬ 
terà di individuare il primo record disponibile per effettuare un'inser¬ 
zione. Quando si vorrà operare su di un file il programma dovrà control¬ 
lare che questo sia stato precedentemente creato e informarne l’utente. 
Scelto così un file esistente si potranno effettuare due operazioni: inse¬ 
rimento e visualizzazione. Per poter inserire delle informazioni, il pro¬ 
gramma dovrà innanzi tutto leggere nel primo record del file il valore 
che individua il record disponibile per l'inserzione, per potersi così po¬ 
sizionare sul primo campo del record libero (per inserirvi il cognome), 
sul secondo campo (per inserirvi il nome) e sul terzo (per il numero di 
telefono). Finito l’inserimento dei dati, dovrà incrementare di una unità 
il valore che individua il nuovo record libero per le successive inserzio¬ 
ni. Quando si vorranno invece visualizzare dati memorizzati in preceden¬ 
za, il programma dovrà stampare il nome del file richiestogli dall’uten¬ 
te, controllare che non sia vuoto e visualizzare il primo record occupato; 
saranno poi stampati tutti i successivi records fino al primo trovato vuoto. 
Per cancellare un file sarà sufficiente fornire il nome del file che si vuo¬ 
le eliminare, e il programma invierà i necessari comandi al disco. Dovrà 
anche essere prevista la visualizzazione del codice e del tipo di errore 
verificatosi, nel caso in cui durante lo svolgimento di una di queste ope¬ 
razioni avvenga un errore di lettura o scrittura sul disco. Di fondamen¬ 
tale importanza sarà aprire e chiudere tutti i canali utilizzati per comu¬ 
nicare con i files, oltre ad aprire e chiudere il canale di comando (il nu¬ 
mero 15) necessario per trasmettere le istruzioni contenute nel program¬ 
ma all’unità disco. 

Come sarà possibile notare leggendo il listato, questo programma è in 
realtà l’unione di sottoprogrammi, ognuno dei quali svolge un determi¬ 
nato compito (creazione, cancellazione, ecc.); perciò risulterà facile ag¬ 
giungervi la possibilità di gestire altre operazioni; basterà infatti scrive¬ 
re un programma che svolga una particolare operazione (ad esempio la 
ricerca di un determinato record individuato da un codice o dal cogno¬ 
me memorizzatovi) e inserirlo, con gli opportuni collegamenti, come un 
ulteriore sottoprogramma del programma «archivio». 
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Diagrammi 
di flusso 


Dopo aver inizializzato le 
costanti e stampato il titolo 
il programma visualizza il 
menù dei comandi. 

Il menù visualizzato 
contiene tutti i comandi 
che permettono all'utente 
di gestire l’archivio. 

Nella fase successiva, il 
programma, dopo aver 
acquisito un comando dalla 
tastiera, entra nel ciclo che 
determina quale esecuzione 
associare al comando. Il 
primo blocco che si 
incontra controlla se il 
comando impartito è la 
creazione di un archivio. Se 
è così viene richiesto il 
nome da attribuire al file, 
si inizializza il primo 
record del file e si 
verifica se l'operazione 
ha avuto successo; qualora 
l'operazione non abbia 
avuto successo il programma 
visualizza un messaggio 
d'errore. Con il test successivo 
si verifica se il comando 
impone la cancellazione di 
un archivio. In caso positivo 
si richiede quale archivio 
debba essere cancellato, 
quindi si elimina il file in 
cui è registrato. Si passa 
ora a verificare se il 
comando è quello relativo 
all'inserzione di un 
elemento; qualora lo sia, si 
controlla se l’archivio 
richiesto è stato selezionato 
(aperto), dopo di che sono 
letti e memorizzati i dati 
che l'utente immette. Dopo 
l’inserzione è la volta della 
selezione di un archivio. 

A questo punto il programma, 
dopo aver verificato se è 
questo il comando prescelto, 
controlla che il file sia 
stato crealo, e quindi passa 
a definirlo e ad aprirlo 


ST#RT 


Inlzializzazione 


Z Stampa 

del titolo 

T<—— 


Z Visualizzazione 

menù 

comandi 

Z Acquisizione 

di un comando 


( 

( 

c 


Creare 
un archivio? 


^NO 


Cancellare 
un archivio? 


NO 


Inserire 
un elemento? 


NO 


NO 


< 


NO 

Terminare 

l'esecuzione? 


Programma principale 


■o 


Il comando è un codice 
numerico compreso tra 1 e 6 


}^© 

>^o 


( Selezionare \ 

un archivio? / ^ V* J 


Questa parte si può 
ottenere utilizzando una sola 
y istruzione (ON... GOSUB .). 
che chiama l'opportuna 
routine a seconda del valore 
del codice numerico 


< Stampare \ _SI_^ 

un archivio? 1 ' V_/ 




SI 
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logicamente. Il blocco di 
verifica successivo determina 
se il comando è l'invio in 
stampa di un archivio; ciò 
avviene dopo aver controllato 
se l’archivio è stato 
selezionato (aperto). 
Nell’ultimo blocco si controlla 
se il comando è quello di 
uscita; qualora lo sia, si 
termina l’esecuzione, e in 
caso contrario si ritorna alla 
visualizzazione del menù. 

In questa versione il 
programma è dedicato alla 
gestione di un’agenda 
telefonica; i campi dei records 
sono infatti denominati: 
cognome, nome e telefono. 
Le possibilità di applicazione 
sono naturalmente molto 
più vaste, e questo può 
essere evidenziato 
cambiando i nominativi 
precedenti nei più generici: 
campo 1, campo 2 e campo 
3. Utilizzando ad esempio 
il programma per la 
memorizzazione dei 
risultati delle partite di 
calcio effettuate durante il 
campionato, si possono 
identificare i files con 
l'indicazione della giornata 
di campionato (p. es., 
settima giornata) e in 
ciascun record riportare: 
nel campo 1 il nome della 
squadra di casa (p. es., 
Juventus), nel campo 2 il 
nome della squadra ospite 
(p. es., Roma) e nel campo 3 
il risultato (p. es., 1-1). 

Va notato che nel 
trasferimento dei campi al 
disco questi ultimi sono 
trattati come stringhe. 
Poiché alcuni caratteri (in 
particolare , e :) hanno per 
il driver significato di 
comandi, è necessario 
evitare di utilizzare questi 
caratteri in fase di 
digitazione dei dati, a meno 
di non prevedere alcuni 
controlli che saranno 
illustrati nel programma 
«Editor» (pag. 177). 



Subroutlnes 


Messaggio 
di errore 


J 




Messaggio 
di errore 


I 




©-»( ! 



si 4^ 



Selezione 
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archivio 
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Il programma 


Dopo la stampa del titolo e 
l’inizializzazione delle 
costanti (linee 110+122), 
alla linea 124 è aperto il 
canale di comando e alla 
140 è stabilito di presentare 
i caratteri in minuscolo e 
in nero. Troviamo poi le 
istruzioni di visualizzazione 
del menù comandi (linee 
140 +250) e la chiamata alla 
routine 10000 che gestisce 
l’immissione dei comandi 
da tastiera. Come si è già 
chiarito nella descrizione 
del programma «Il gioco 
della vita», anche in questo 
caso i caratteri grafici che 
compaiono in alcune linee 
(ad esempio nella 160) 
rappresentano lettere 
maiuscole. Quando è 
digitato un comando 
previsto, il controllo torna 
alla linea 290 che, a 
seconda della funzione 
richiesta, chiama la routine 
demandala a realizzarla. 

La routine che crea un file 
è la 20000; essa chiede il 
nome che si vuole dare al 
file da creare (linea 20030) e 
passa il controllo alla 
routine 60000, che gestisce 
la memorizzazione dei 
caratteri digitati da tastiera. 
Qualora non sia immesso 
nessun carattere, è 
ripresentato il menù 
comandi (linea 20060), 
altrimenti viene creato il 
file (linea 20100). 
Nell'istruzione OPEN che 
serve alla creazione del file 
sono presenti, dopo 
l'indicazione del numero 
del file, del numero di 
individuazione dell'unità 
disco e del canale, il nome 
da noi scelto per il file (in 
IN$) e l'indicazione della 
lunghezza di ogni record 


0 REM ********** 

1 REM «ARCHIVIO* 

2 REM ********** 

4 REM VARIABILI UTILIZZHTE 


6 REM 1,19 

7 REM LA* 

8 REM IN*,Rf 

9 REM E 

10 REM E* 

11 REM T,S 

12 REM BL 

13 REM BL* 

14 REM RL 
13 REM RH 


210 PRINT "J83 • 
230 RRINT "JOT 


CONTATORI DI CICLO 

MEMORIZZR IL NOME DELL'RRCHIVIO CORRENTE 
INPUT Dfl TRSTIERR 

CODICE NUM. DELL'ERRORE EFFETTUATO NEL TRASFERIRE I ORTI SU DISCO 
DENOMINAZIONE DEL TIPO DI ERRORE EFFETTUATO 
TRACCIA E SETTORE DEL BLOCCO IN CUI SI E' VERIFICATO L'ERRORE 
INDIRIZZO DI UN RECORD DEL FILE LR* 

STR* DI BL 

PARTE BASSA DELL'INDIRIZZO DEL BLOCCO BL 
PARTE RLTA DELL'INDIRIZZO DEL BLOCCO BL 
100 REM TITOLO ED INIZIAUZZAZIONE COSTANTI C64 
110 PG*="A R C H I V I 0“ 

120 OOSUB 62000 

121 REM INIZIALIZZRZIONE COSTANTI 

122 LA*»"" 

123 REM APRO IL CANALE PER TRASMETTERE I COMANDI AL DRIVER 

124 OPEN 13,8,13 

130 REM CARATTERI IN NERO E MINUSCOLI 
140 PRINT "r»";CHR*<14> 

130 REM STAMPO MENU COMANDI 

160 PRINT "»";THB<ll)J"l“*Kr/- ls*,r" 

170 PRINT TRBdlH . . 

180 PRINT "HB SENU DEI COMANDI"’ 

190 PRINT "HBB1: -REA ARCHIVIO" 

200 PRINT "HE! -ANCELLA ARCHIVIO" 

•INSERISCI IN ARCHIVIO" 

-SFINISCI ARCHIVIO DI USO" 

240 PRINT "HV XISUAL IZZA ARCHIVIO" 

230 PRINT "B5 ! -INE SESSIONE DI LAVORO" 

260 REM LEGGO IL COMANDO DA TASTIERR 
270 OOSUB 10008 

280 REM ESEGUO LA ROUTINE RELATIVA AL COMRNDO DATO 
290 ON VALCAfl OOSUB 20000,21000,22000,23000,24000,25000 
300 REM RITORNO AL MENU DEI COMANDI 
310 GOTO 140 

9990 REM ROUTINE ! LEGGE UN COMANDO DA TASTIERA E CONTROLLA SE E' CORRETTO 

10000 POR 1*1 TO 10-GET AJUNEXT I 

10010 REM HO SVUOTATO IL BUFFER DI INGRESSO 

10020 REM LEGOO COMANDO 

10030 OET A*: IF A**"" THEN OOTO 10030 

10040 REM CONTROLLO CHE IL COMRNDO SIH CORRETTO 

10030 IF <R*>= u r'> AND CA*0"6") THEN RETURN 

10060 REM EMETTO UN BEEP E LEGOO IL PROSSIMO COMANDO 

10070 POKE 31*24,13 

100S0 PCKE 31,0 

10090 POME SI+1,40 

10100 PONE 81+3,15 

10110 POKE SI+6,Z40 

10120 POKE SI+4,17 

10130 FOR 1*1 TO 30-NEXT I 

10140 REM TERMINA IL BEEP 

10130 POKE SI+24,0 

10160 POKE 31+4,0 

10170 OOTO 10000 

10990 REM ROUTINE!STAMPA IL CODICE D'ERRORE DEL DISCO 
11000 POKE 214,13 : PRINT 

11010 PRINT ATTENZIONE, ERRORE DEL DRIVER" 

11020 PRINT "BITUMERÒ "’IE 
11030 PRINT "TIPO !";E* 

11040 PRINT "BLOCCO : “JTJ8 
11030 REM INIZIALIZZO IL DRIVER 
11060 PRINT#13,"I" 

11070 REM CHIEDO DI CONTINUARE 
11080 PRINT ,-/• PER CONTINUARE" 

11090 OET IN* 1 IF INfOCHRf( 13) THEN OOTO 11090 
11100 RETURN 

19990 REM ROUTINE>CREA RRCHIVIO 

20000 print "y ;thb( 13 > x«,r“ 

20010 PRINT TRBC 13>I "-- 

20020 REM LEGGO IL NOME DELL'ARCHIVIO DA CREARE 
20030 PRINT ARCHIVIO ? "J 

20040 ZL=I0!OOSUB 60000!PRINT 

20030 REM SE NON E' STATA DIGITATA UNA STRINGA : RETURN 
20060 IF IN*""" THEN RETURN 
20090 REM APRO IL FILE IN* 

20100 OPEN 4,0,4,IN*+",L,"+CHR*(48> 

20110 REM LEGGO STATUS 
Z0120 INPUT#13,E,E*,T,S 
20130 REM CONTROLLO ERRORI 
20140 IF E<20 THEN GOTO 20250 

20130 REM C'E STATO UN ERRORE, NE STAMPO IL CODICE 

20160 GOSUB 11000 

20170 REM CHIUDO I ORNALI APERTI 

Z0I80 CL05E 4 

20210 RETURN 

20240 REM INIZIRLIZZO IL BLOCCO 1 
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[CHR$(48)]. Si controlla poi 
(linea 20120), tramite il 
canale di comando, se 
l’unità a disco si è venuta 
a trovare in stato di errore 
e, qualora ciò sia avvenuto, 
è visualizzato il messaggio 
che indica il tipo di errore 
(routine 11000) e chiuso il 
canale utilizzato per il 
tentativo di creazione del 
file (linea 20180). Se non si 
sono verificati errori il 
programma si posiziona 
all'inizio del 1° campo del 
primo record del file 
appena creato (linea 20250), 
e vi memorizza il valore 
che servirà ad individuare 
il primo record libero per 
un'inserzione (linea 20260). 
L'istruzione della linea 
20250 è detta «comando di 
posizione», e individua il 
file, l'indirizzo del record 
(suddiviso in parte bassa e 
parte alta) e la posizione 
all’interno del record. In 
questo caso viene 
individuato il file n° 4 
[CHR$(4)J, il suo primo 
record fCHR$(l)CHR$(0)l e 
ci si posiziona al primo 
carattere [CHR$(1)] del 
record individuato. Chiuso 
poi il canale utilizzato 
(linea 20290), la routine 
termina (linea 20310), ed è 
ripresentato il menù 
comandi. 

La routine 21000, che 
cancella un file, chiede il 
nome del file da eliminare 
(linea 21050) e controlla che 
il nome sia effettivamente 
immesso (linea 21080); quindi 
elimina il file sul disco 
(linea 21100) e controlla se 
la cancellazione è avvenuta 
regolarmente (linee 
21110+21130). 

La routine 22000 gestisce 
l'inserzione delle 
informazioni. Alla linea 
22009 si controlla se è stato 
scelto un file in cui operare 
l'inserimento ed 
eventualmente è 


20230 PRINT#1S,"P"CHRf<4>CHRfC1>CHRfC0>CHR*<1> 

20260 PRINT#4,"2" 

20270 REM HO CRERTO ED INIZIRLIZZHTO IL FILE RRNDOM 
20280 REM TERMINH ROUTINE 
20290 CLOSE 4 
20310 RETURN 

20990 REM ROUTINE•CRNCELLR ARCHIVIO 
21000 PRINT "ITJTRBan; LLf KX%r" 

Z1010 PRINT TABIll); 1 - - 

21040 REM CHIEDO NOME ARCHIVIO DR ELIMINARE 
21050 PRINT “mnnUJME RRCHIVIO ? 

21060 ZL=10:OOSUB 60000:PRINT 

21070 REM CONTROLLO CHE LR STRINOR SIA STATA DIGITATA 

21080 IF INf»"" THEN RETURN 

21081 IF INf=LAf THEN LAf="":PEM ELIMINO L'ARCHIVIO DI LAVORO 
21090 REM ELIMINO IL FILE 

21100 PRINT*15, "S0 '■ "+INf 

21110 INPUT»U3,E,Ef,T,S 

21120 REM SE E=1 ALLORA TUTTO A POSTO 

21130 IF E«1 THEN RETURN 

21140 REM IL FILE NON E' STATO ELIMINATO PER QUALCHE MOTIVO 
21130 REM VISUALIZZO ERRORE E RETURN 
21160 OGSUB 11000 
21220 RETURN 

21980 REM ROUTINE^INSERISCE UN ELEMENTO NELL'ARCHIVIO DI LAVORO, 

21990 REM SE E' STRTO DEFINITO 

22000 PRINT "3" :TRB<7)1"INSERZIONE DI UN ELEMENTO" 

22001 PRINT TAB(7>! --- 

22009 IF LRfO"" THEN GOTO 22040 

22010 PRINT "ramWTTENZIONE, L'ARCHIVIO DI LAVORO" 

22020 PRINT "BUON E' STATO DEFINITO." 

22021 PRINT "BNNSERZIONE IMPOSSIBILE." 

22022 PRINT "OTWa_ - l /-/• PER PROSEGUIRE" 

22023 GET INf: IF INfOCHRf < 13) THEN GOTO 22023 

22024 RETURN 

22040 OPEN 4,8,4,LRf 

22050 REM LEGGO L'INDIRIZZO DEL PROSSIMO BLOCCO IN CUI SCRIVERE 
22060 REM MI POSIZIONO ALL'INIZIO DEL BLOCCO 1 
22070 PRINT#I3,”P"CHRSC4)CHRf(l)CHRf(0)CHRf<1) 

22080 INPUTR4,BLf 
22090 BL=VAL<BLf> 

22100 REM CALCOLO PARTE RLTA E PARTE BASSR DELL'INDIRIZZO DEL BLOCCO IN CUI 
22110 REM EFFETTUARE L'INSERZIONE 
22120 RL=BL-INT(BL/2561*256 
22130 RH= I NT < BL/256 ) 

22140 REM MI POSIZIONO SUL BLOCCO BL-ESIMO 

22150 PRINTBIS, "P“CHRf (4)CHRf <RL)CHRf (RH)CHRf < 11 

22160 REM LEOGO LE STRINONE DA MEMORIZZARE 

22170 REM MI POSIZIONO SULLA RIGA 10 

22180 POKE 214,9:PRINT 

22190 REM LEOGO IL COGNOME 

22200 PRINT "-OGNOME 1 ":TRB<15); 

22210 ZL=15:GOSUB 60000:PRINT 
22220 IF INf="" THEN GOTO 22180 

22230 REM MEMORIZZO IL COONOME 

22231 PRINT#!5,"P"CHR* C 4)CHRf< RL1CHRf < RH)CHRf <1) 

22240 PRINT44,INf 

22230 REM MI POSIZIONO AL 17-MO POSTO 

22260 PRINT415, "P"CHRf <4>CHRf <RL>CHPf (RH)CHPf< 17) 

22270 REM LEOGO IL NOME 
22280 POKE 214,Il : PFINT 
22300 PRINT "/OME 7 "ITABC15 )\ 

22310 ZL=15:GOSUB 60000:PRINT 
22320 IF INf»"" THEN DOTO 22280 
22330 REM MEMORIZZO IL NOME 
22340 PRINT44.INf 

22350 REM MI POSIZIONO AL 33-MO POSTO 

22360 PRINT#15,"P"CHRf<4)CHRf<RL)CHRfCRHICHPf<33) 

22370 REM LEGGO IL NUMERO DI TELEFONO 

22380 POKE 214,13 : PRINT 

22400 PRINT "IELEFONO ? "ITABC15)I 

22410 ZL=15:00SUB 60000 

22420 IF INf»"" THEN GOTO 22380 

22430 REM MEMORIZZO IL NUMERO DI TELEFONO 

22440 PRINT44,INf 

22450 REM HO TERMINATO L'INPUT 

22460 REM MEMORIZZO NEL BLOCCO 1 L'INDIRIZZO DEL PROSSIMO BLOCCO LIBERO 
22470 BL=BL+1 

22490 REM MI POSIZIONO ALL'INIZIO DEL BLOCCO 1 
22500 PRINTH15, "P"CHRf<4)CHRf<l)CHRt<0)CHRfa) 

22310 PRINT#4,STRf(BL) 

22530 REM CHIUDO I CANALI APERTI 
22540 CLOSE 4 
22560 RETURN 

22990 REM ROUTINE : DEFINISCE L'ARCHIVIO DI LAVORO 
23000 PRINT ,, 3";TAB<5);“"'-%^^rX' l-,X-.r *\ Lfvr-T" 

23010 PRINT TABCS);"- 1 -" 

23020 PRINT "Bmmmn/OME RRCHIVIO ? "I 
23030 ZL=10:GOSUB 60000:PRINT 
23040 IF INf="" THEN RETURN 
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visualizzato un messaggio 
per avvertire che non è 
possibile effettuare 
inserzioni senza prima 
definire il file, ed è 
ripresentato il menù 
comandi (linee 
22010+ 22024). È poi aperto 
il file scelto (linea 22040) e 
si legge il contenuto del 
primo record (linee 22070, 
22080), che serve a 
determinare il record libero 
dove poter effettuare 
l’inserimento. Alla linea 
22090 è trasformata la 
stringa letta nel primo 
record in valore numerico, 
per poter calcolare 
l'indirizzo del record libero 
(linee 22120, 22130). Ci si 
posiziona poi sul primo 
campo del record 
disponibile per 
l’inserimento (linea 22150) e 
si richiede il cognome da 
memorizzare (linea 22200). 
L’immissione dei caratteri 
che compongono il 
cognome è gestita dalla 
routine 60000, che 
restituisce una stringa la 
quale viene memorizzata 
nel primo campo (linee 
22231, 22240). 

Con l’istruzione della linea 
22260 ci si posiziona 
all'inizio del 2° campo (dal 
17° al 32° carattere) prima 
di chiedere e leggere il 
nome (linee 21280 +22320), 
per la successiva 
memorizzazione (linea 
22340). È poi memorizzato 
il numero di telefono nel 3° 
campo del record in modo 
analogo (linee 22360+ 22440). 
Completato quindi 
l'inserimento dei dati, è 
incrementato il valore che 
determina il primo record 
libero (linea 22470), e il 
risultato è memorizzato nel 
primo record del file (linee 
22500, 22510) per poter 
effettuare la prossima 
inserzione. Infine si chiude 
il canale utilizzato e si 


23050 REM CONTROLLO L'ESISTENZA DELL'ARCHIVIO 
23070 OPEN 4,8,4,IN* 

23080 INPUT#15,E,E*,T,5 

23030 IP E<20 THEN LA*=IN*:CLOSE 4 ; RETURN 

23100 REM C'E' UN ERRORE 

23110 OOSUB 11000 

23120 CLOSE 4 

23140 RETURN 

23990 REM ROUTINEVISUALIZZA ARCHIVIO DI LAVORO, SE E' STATO DEFINITO 

24000 PRINT ".T;TAB<12)j"*l*\-» KXvP 1 

24001 PRINT TRB<12)J"-- 

24002 REM CONTROLLO CHE L'RRCHIVIO DI LAVORO SIA STRTO DEFINITO 

24003 IF LASO" " THEN GOTO 24010 

24004 PRINT "J5MTTENZI0NE, L'ARCHIVIO DI LAVORO" 

24005 PRINT "INON E' STATO DEFINITO." 

24006 PRINT "ITO0S_~l ,_/■ PER PROSEGUIRE" 

24007 GET IN* : IF IN*OCHR*<13) THEN GOTO 24007 

24008 RETURN 

24009 REM STAMPO IL NOME DELL'ARCHIVIO DI LAVORO 

24010 PRINT "-ONTENUTO DELL'ARCHIVIO S";LA*;"S“ 

24019 OPEN 4,8,4,LA* 

24020 REM MI POSIZIONO SUL BLOCCO 1 

24030 PRINT#15,"P"CHR* < 4 )CHR* <1) CHR* < 0)CHRSC1> 

24040 REM LEGGO L'INDIRIZZO DEL PRIMO BLOCCO LIBERO 
24050 INPUT#4,BL* 

24060 BL=VAL(BL*) 

24100 REM CONTROLLO SE IL FILE E' VUOTO 
24110 IF BL>2 THEN OOTO 24180 
24120 REM IL FILE E' VUOTO 

24130 PRINT "HroiL'HRCHIVIO "ILA*,"’ E' VUOTO." 

24140 PRINT "HHS--I PER PROSEGUIRE." 

24150 GET IN*' IF IN*OCHR*<13) THEN GOTO 24150 

24151 CLOSE 4 
24160 RETURN 

24170 REM L'ARCHIVIO NON E' VUOTO,LO STAMPO 
24180 FOR 1=2 TO BL-1 

24190 REM MI POSIZIONO SUL BLOCCO I-ESIMO 
24200 RL=I-INTCI/256>*256 
24210 RH=INT<1/256) 

24220 PRINT#15,"P"CHR*<4)CHR*CRL)CHR*(RH)CHR*<1) 

24230 REM LEGGO E STAMPO COGNOME 
24240 POKE 214,14-PRINT 
24250 PRINT "“OGNOME"ITRB<15 )! 

24260 INPUT#4,IN* 

24270 PRINT IN* 

24280 PRINT 11 H/OMt" ITABI 15)1 

24290 REM MI POSIZIONO SUL 17-MO CARATTERE 

24300 PRINT#15,"P"CHR*<4)CHR*CRL)CHR*<RH)CHR*<17) 

24310 INPUT#4,IN* 

24320 PRINT IN* 

24330 PRINT "HI ELEF0N0";TAB(15),' 

24340 REM MI POSIZIONO SUL 33-MO CARATTERE 
24350 PRINT#15,"P"CHR*C4)CHR*<RL)CHR*CRH)CHR*<33> 

24360 INPUT#4,IN* 

24370 PRINT IN* 

24380 PRINT "WS-'I ,_/■ PER CONTINUARE" 

24390 GET IN* IF IN*OCHR*(13). THEN OOTO 24390 
24400 REM CANCELLO LE LINEE DALLA 15 ALLA 24 
24410 POKE 214,14 : PRINT 
24420 FOR 19=1 TO 9 

24430 PRINT " •• 

24440 NEXT 19 

24450 REM STAMPO, SE C'E', IL PROSSIMO RECORD 
24460 NEXT I 

24470 REM HO TERMINATO LA STAMPA DELL'ARCHIVIO LA* 

24480 POKE 214,14 ; PRINT 

24490 PRINT "L' ARCHIVIO E' TERMINATO." 

24500 PRINT "HBS--I /_✓« PER PROSEGUIRE." 

24510 GET IN* 1 IF IN*OCHR*<13) THEN GOTO 24510 
24520 REM CHIUDO I CANALI APERTI 
24530 CLOSE 4 
24550 RETURN 

24990 REM ROUTINE 1 TERMINA LA SESSIONE DI LAVORO 
25000 PRINT "lOTar JCHR*<142) 

25010 CLOSE 15 

25011 P0KE53281,6 1 POKE53280,14 

25012 PRINT"!)" 

25013 PRINT"CMM" 

25020 END 

59920 REM ROUTINE CESTISCE L'INPUT DI UNA STRINGA ALFANUMERICA 
59930 REM LE VARIABILI UTILIZZATE S0N0 : Z6,Z7,Z8,Z9,Z8*,IN* 

59940 REM IN INGRESSO VUOLE IL VALORE ZL CHE E' LA LUNGHEZZA MASSIMA DELLA 
59950 REM STRINGA DA LEGGERE 

59960 REM IN USCITA DA' LA STRINGA LETTA IN IN* E LA SUA LUNGHEZZA IN Z9 

59980 REM CANCELLO LA ZONA DI SCHERMO IN CUI VERRÀ' DIGITATA LA STRINGA 

60000 FOR Z8=l TO ZL 1 PRINT " ";:NEXT Z8 

60010 FOR Z8=l TO ZL 1 PRINT "II"; 1 NEXT Z8 

60020 IN*="" -Z7=TI 

60040 REM LEGGO UN CARATTERE 

60060 GET Z8* ; IF Z8*<>“" THEN 60160 
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ripresenta il menù dei 
comandi. 

La scelta del file su cui si 
vuole operare è gestita 
dalla routine 23000 che, 
chiesto come al solito il 
nome del file (linea 23020), 

10 apre e ne memorizza il 
nome nella stringa LA$ 
(linee 23070+23090), che 
sarà poi usata nella routine 
di inserimento dati. 

La routine 24000 gestisce la 
visualizzazione del 
contenuto dei records di un 
file. Per prima cosa 
controlla se è stato definito 

11 file di lavoro ed 
eventualmente visualizza il 
messaggio di avvertimento 
(linee 24001 +24008). 

La linea 24010 stampa poi 
il nome elei file e la 24019 

10 apre. È quindi letto 
l’indirizzo del primo record 
libero (linea 24050) per 
poter controllare se il file è 
vuoto (linea 24110) e 
visualizzare l'eventuale 
messaggio di avvertimento 
(linee 24130 + 24150). Inizia 
poi un ciclo (linee 
24180+ 24460) in cui, dopo 
essersi posizionato sul 
record da stampare, il 
programma visualizza il 
contenuto dei campi 
cognome, nome e numero 
di telefono e, in seguito alla 
digitazione del tasto 
RETURN, legge e stampa il 
contenuto del record 
successivo, dopo aver 
cancellato le linee video 
utilizzate. L'uscita dal ciclo 
avviene quando si incontra 

11 primo record libero, 
quindi è visualizzato un 
messaggio (linee 

24490 + 24510) e si chiude il 
canale utilizzato (linea 
24530). 

La fine della sessione di 
lavoro è gestita dalla 
routine 25000 che chiude il 
canale di comando prima 
di terminare l'esecuzione 
del programma. 


60080 

60100 

60110 

60120 

60140 

60160 

60180 

60200 

60220 

60240 

60260 

60280 

60300 

60320 

60340 

60360 

60370 

60960 

60980 

61000 

61020 

61040 

61060 

61080 

61100 

61120 

61140 

61160 

61180 

61200 

61210 

61220 

61230 

61980 

62000 

62010 

62020 

62030 

62040 

62050 

62060 

62070 

62080 

62090 

62100 

62110 

62120 

62130 

62140 

62150 

62160 

62170 

62190 

62210 

62220 

62230 

62240 

62250 


REM ACCENSIONE E SPEGNIMENTO DEL CURSORE 
IF Z7CTI RND N0T<Z6> THEN PRINT "811"; : Z6=N0T<Z6I> :Z7=TI + 15 
IF Z7CTI RND Z6 THEN PRINT " II"; :Z6"N0T<Z6> : Z?=TI+15 
GOTO 60060 

REM E' STATO DIGITRTO UN CARATTERE 
Z8=ASC<Z8*> : Z9=LEN<IN*> 

REM SE NON E' UN CARATTERE ALFRNUMERICO, DEVE ESSERE UN RETURN 0 DELETE 
IF N0T(Z8>31 RND Z8<96) THEN GOTO 60320 

REM CONTROLLO CHE NON SIA STRTR SUPERATA LA LUNGHEZZA MASSIMA 

IF Z9=ZL THEN GOTO 60060 

REM LO AGGIUNGO ALLA STRINGA IN* 

IN*=IN*+Z8* : PRINT Z8*;:G0T0 60060 

REM SE E' UN RETURN/ HO TERMINATO LA LETTURA 

IF Z8=13 THEN PRINT " II"; : RETURN 

REM SE E' DELETE, CANCELLO IN IN* E SUL VIDEO L' ULTIMO CARATTERE DIGITATO 
IF Z8=20 AND Z9>0 THEN IN*=LEFT*CIN*,Z9-1)SPRINT " HI";: GOTO 60060 
GOTO 60060 

REM ROUTINE:INIZIALIZZRZIONE COSTANTI 

REM CIRCUITO VIDEO 

VI=53248 

REI-l'CIRCUITO SUONO 
SI=54272 

REM MEMORIA VIDEO 
MV=1024 

REM MEMORIA COLORE 
MC=55296 

REM COSTANTI DI USO COMUNE 
ZL=9 

REM INIZIALIZZRZIONE CHIP SUONO 

FOR 1=0 TO 24 

PONE SI+1,0 

NEXT I 

RETURN 

REM ROUTINE:STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PC* 

GOSUB 61000 
POKE VI+32,15 
POKE VI+33,15 
print "rraaror ; 

PRINT TAB<6); “ mmmmmmmm—mm—mmmmmmm " 

FOR 1=1 TO 5 

PRINT TAB<6>;"Ha I” 

NEXT I 

PRINT TAB(6); " " 

PRINT TPB<6j;"#!WWOTIMBIGITP S?ETURNB PER PROSEGUIRE" 

PRINT "SRMSB" 

FOR 1=1 TO 5 
PRINT TAB<7>; 

FOR J=1 TO 26 
PRINT "513 "; 

NEXT J 
PRINT 
NEXT I 

REM ORA SCRIVO IL TITOLO 

print "aroiromiBH" ; trbc <40-lencpg*> )/2> ; » sur ; pg* 

GET Z9* 

IF Z9*OCHR*< 13) THEN GOTO 62220 

print ":w; 

RETURN 
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Aritmetica a precisione infinita 

I computer, per quanto abbiano enormi possibilità, hanno pur sempre 
i loro limiti. Nel CBM-64, ad esempio, i numeri hanno nove cifre di preci¬ 
sione; il Basic arrotonda le ulteriori cifre significative per difetto se la 
decima cifra è 4 o meno di 4, per eccesso se è 5 o più di 5. 

Volendo effettuare l’operazione 999 999'999 + 999 999 '996, il CBM-64 da¬ 
rà come risultato 2 E+9, cioè rappresenterà il numero in notazione espo¬ 
nenziale. Traducendo la notazione esponenziale in notazione decimale, 
avremo 


2 E+9=2* 10 9 = 2* l'000'000'000 = 2'000'000'000. 


Il risultato esatto della somma è però 1 999‘999'995. Anche usando la no¬ 
tazione esponenziale, c’è sempre un limite alla grandezza dei numeri che 
il Basic del CBM-64 è in grado di trattare. Progetteremo quindi un pro¬ 
gramma per effettuare operazioni senza che i numeri siano arrotondati, 
cioè senza che i risultati delle operazioni siano, di conseguenza, falsati. 


Analisi del 
problema 





Come sappiamo, il CBM-64 assegna 4 bytes di memoria alle variabili e 
alle costanti numeriche reali (in virgola mobile), e 2 bytes a quelle inte¬ 
re. Ogni byte è composto da 8 bits, e quindi, poiché i calcolatori utilizza- 
n ° *! ^sterna binario, il numero intero più grande memorizzabile in 2 by¬ 
tes è 2 - 1 = 65 535. In realtà le costanti e le variabili intere possono as¬ 
sumere valori compresi nel campo - 32768 -5- +32767, perché il bit più 
significativo è riservato al segno (positivo o negativo). 

Per superare questi limiti è necessario utilizzare un diverso metodo di 
memorizzazione dei numeri. 

Il nostro programma dovrà permettere di eseguire l’addizione e la mol¬ 
tiplicazione di due numeri interi di qualsiasi dimensione senza arroton¬ 
dare il risultato. 

Come prima cosa sarà presentata la possibilità di scegliere tra l’addizio¬ 
ne (+), la moltiplicazione (*) o l’interruzione del programma (F). 
Quindi, il primo numero, che chiameremo primo operando, sarà memo¬ 
rizzato in una stringa, e poi ogni singola cifra che compone il numero 
sarà memorizzata in una diversa cella di memoria, a partire dalla lo¬ 
cazione di indirizzo 2048. Il secondo numero (secondo operando) sarà 
poi memorizzato nelle celle immediatamente successive a quella con¬ 
tenente l’ultima cifra del primo. Per individuare la prima cella di me¬ 
moria del secondo operando, basterà aggiungere 2048 al numero delle 
cifre del primo. L’area riservata alla memorizzazione dei due numeri e 
del risultato sarà compresa tra l’indirizzo 2048 e l’indirizzo 16000, per¬ 
mettendo così, in teoria, di effettuare operazioni tra numeri interi com¬ 
posti di molte migliaia di cifre. 

Per effettuare la somma di due numeri, il programma dovrà riporta¬ 
re i contenuti delle due celle di memoria in cui sono memorizzate le 
cifre meno significative (le unità) dei due numeri in altrettante varia¬ 
bili di comodo. Le dovrà poi sommare tra di loro, controllare se il ri¬ 
sultato è maggiore di 9, e se lo è mettere la cifra 1 nella variabile RE 
(riporto), prima di memorizzare con una POKE il risultato della somma 
(a cui si sarà sottratto 10) nell’indirizzo 16000 (TP). Se la somma non è 
maggiore di 9, il risultato sarà memorizzato in TP senza dover conside¬ 
rare il riporto. 

Saranno poi sommati tra di loro i contenuti delle celle di memoria che 
rappresentano le decine, aggiungendovi l’eventuale riporto della somma 
precedente, e il risultato sarà memorizzato in TP - 1. Si procederà in que- 
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sto modo fino a che non sarà stata calcolata l’intera somma. Il program¬ 
ma dovrà inoltre ricordare di controllare anche 1’esistenza di un even¬ 
tuale ultimo riporto. 

Questo procedimento, illustrato qui di seguito con un esempio, è in pra¬ 
tica quello a cui siamo tutti abituati. 

Somma di 75 e 96 75 + 

96 

171 


6 + 5 = 11 scrive 1 e pone RE = 1 


2 7+9=16 


_ _ _ DC ,, scrive 7 e pone RE = 1 \ _ _ 

-7 somma RE - 7 17 --:— 7 RE = 1 

3 scrive RE e pone RE=0_ re-0 

> / 


! 


^ RE = 1 




15998 

15999 

Ì6000 



1 

7 

1 


Per effettuare la moltiplicazione, il programma dovrà invece moltiplica- 
re la cifra meno significativa del primo numero per tutte quelle del se¬ 
condo, tenendo conto dei riporti, e memorizzare i relativi risultati dal- 
l’indirizto 16000 al 2048. La successiva cifra dell'operando sarà molti¬ 
plicata per quelle dell’operatore, ed i risultati andranno memorizzati negli 
indirizzi dal 15999 al 2048. Nella figura qui sotto è mostrato un esempio. 

Moltiplicazione di 67 e 53 67 x 

53 

201 

335 

3551 


1 3x7 = 21 


scrive 1 e pone RE = 2 


> RE = 2 


2 

3 


3x6 = 18 —» somma RE —> 20 
scrive RE e pone RE = 0 


scrive 0 e pone RE = 2 pg _ 2 


E 


->RE=0 

sy \l/ 


15997 

15998 

15999 

16000 


2 

0 

1 


4 

5 

6 


5x7 = 35 so™™ 3 5 e pone RE-3 

5x6 = 30somma RE -»33 somma 3 e pone RE = 3^ RE-3 
som ma RE e pone RE = 0 re -0 


RE = 3 


\ 




m 

15997 

3 

15998 

5 

15999 

5 

16000 

1 
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Diagrammi 
di flusso 


Il programma inizia 
controllando che la sua 
base in memoria sia stata 
spostata. Tale necessità 
scaturisce dall’esigenza di 
riservare maggiore spazio 
alla memorizzazione degli 
operandi. 

Successivamente, dopo aver 
inizializzato le costanti e 
stampato il titolo, si 
visualizzano i campi in cui 
saranno immessi gli 
operandi, quello in cui 
apparirà il risultato e 
quello in cui sono elencate 
le operazioni consentite. 
Quindi il programma 
attende che l’utente 
attribuisca un valore al 
primo operando; la 
semplice pressione del tasto 
RETURN farà sì che il 
programma attribuisca al 
primo operando il risultato 
della precedente 
operazione. 

L'eventuale operando 
immesso è memorizzato in 
un gruppo di locazioni di 
memoria adiacenti. 

Le operazioni descritte per 
il ciclo di determinazione 
del primo operando sono 
ripetute per la 
determinazione del 
secondo. 




r "7 no/ 1 

Messaggio 
di avvertimento 

“ D 


La base del 
programma è 
stata spostata? 


• : v SI 


> 


Inizializzazlone 


o- 


Il primo operando 
è il risultato della 
operazione 
precedente 


Il secondo 
operando è 
uguale al primo 


/ Stampa 
del titolo 

4^ 

/ Visualizzazione 
dei campi 

VÌCle0 / 


-- 

/ Lettura valore Ì 
del primo 
operando 


NO 

<r 


' 


É stato attribuito 
un valore? 


> 


4<si 


Memorizzazione 
del primo 
operando 




/ Lettura valore 7 
del secondo 
operando 


NO 


< 


È stato attribuito 
un valore? 


> 


SI ^ 


Memorizzazione 
del secondo 
operando 


O 
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Una volta stabilito il valore 
degli operandi, il 
programma attende 
istruzioni dall'utente per 
attivare la somma o la 
moltiplicazione, o per 
terminare l'esecuzione. Il 
comando immesso sarà 
utilizzato all'interno di un 
ciclo per eseguire 
l’operazione desiderata 
dall'utente. 

Se l’operazione da eseguire 
è una somma, si estrae 
l'ultima cifra (a destra) di 
entrambi gli operandi, poi 
si esegue la somma delle 
cifre estratte e si converte 
il risultato in modulo 10 
(cioè si divide per 10 e si 
considera il resto di tale 
divisione, che sarà 
compreso fra 0 e 9). 
L’eventuale riporto è 
memorizzato per essere 
sommato al risultato 
dell'addizione delle cifre 
successive. 

Aggiornati la somma e il 
riporto, si verifica se è stata 
effettuata la somma di 
tutte le cifre degli addendi; 
se non è così si passa a 
considerare le cifre 
successive, altrimenti si 
controlla il valore del 
riporto ed eventualmente lo 
si aggiunge, come ulteriore 
cifra, al risultato. 



NO 




Acquisizione 
di un comando 


* 



Eseguire 
la somma? 


NO 


Eseguire la 
moltiplicazione? 


4^ NO 


>^-*o 


Terminare 

l’esecuzione? 



END 




0 

A 
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Nel caso sia richiesta 
la moltiplicazione si estrae 
una cifra dal moltiplicando 
e una dal moltiplicatore, se 
ne esegue il prodotto, che 
sarà convertito in modulo 
10, per aggiornare il 
risultato e il riporto. 

Si esegue quindi una 
doppia verifica atta a 
determinare se sono finite 
le cifre dei due operandi; 
eventualmente non siano 
finite si toma a considerare 
le rimanenti. 

Una volta moltiplicale tutte 
le cifre del moltiplicando e 
del moltiplicatore, e 
aggiornato il risultato, si 
verifica il valore del riporto 
e si stampa il risultato. 
All'ultimo blocco del ciclo è 
demandato il controllo 
della possibilità di uscita 
dall'esecuzione del 
programma. 


© 

* 



o 

±- 


si 4, 

< 11 riporto è 
uguale a zero? 

SI 4,<- 


NO 


Calcolo della 
ultima cifra 


^/ Stampa 
del risultato 
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Il programma 


Il programma inizia alla 
linea 81, in cui controlla se 
è stata spostata la sua base 
di memoria. Segue 
l'inizializzazione delle 
costanti e dei colori dello 
sfondo e della cornice 
(linee 83 + 85). 

Sono quindi inizializzate 
alcune ulteriori costanti 
(linea 160). In particolare si 
stabilisce il valore delle 
costanti PI e TP che 
individuano il primo e 
l'ultimo indirizzo di 
memoria dell’area che sarà 
utilizzata per la 
memorizzazione degli 
operandi e del risultato. 

Le linee 200+310 presentano 
la spiegazione delle possibilità 
offerte dal programma. La 
linea 342passa poi il controllo 
alla routine 3000 che, 
visualizzata la richiesta di 
inserire il primo operando 
e, memorizzalo il valore di 
PI in OP e in 01, chiama la 
5000. Il programma quindi 
controlla se è stato 
effettivamente immesso un 
numero (linea 5010) e, tolti 
gli eventuali zeri non 
significativi (linea 5121), lo 
memorizza nelle celle di 
memoria dall’indirizzo 2048 
in poi (linee 5130 + 5150). 
Qualora invece non sia stato 
digitato un numero, ma il 
tasto RETURN, il programma 
copia il risultato 
dell'operazione precedente 
nell'area di memoria destinata 
all'operando attuale (linee 
5030+ 5050), e lo visualizza 
sullo schermo (linee 
5062 +5065). Restituisce poi 
il controllo alla linea 3080, 
dove memorizza il numero 
di cifre del primo operando 
in LI, e torna alla linea 541, 
che permette di eseguire lo 


0 REM ♦*♦♦♦:♦♦*♦**♦♦♦*♦*♦«*♦ 

1 REM «PRECISIONE INFINITA* 

2 REM ********************* 
4 REM VARIBEILI UTILIZZATE 

6 REM I.J 

7 REM ZE 

8 REM TP 

9 REM PI 


10 REM R* 

11 REM C 

12 REM IN* 

13 REM Z9 

14 REM OP 

15 REM 01,02 

16 PEM LU 

17 REM L1,L2 

18 REM T 

19 REM OP* 

20 REM MB 

21 REM LR 

22 REM fil,R2,BU 


CONTATORI DI CICLO 
: COSTARTELO 

TOP DELLA MEMORIA DISPONIBILE( = I6000.1 E INDIRIZZO DEL RISULTATO 
BASE DELLA MEMORIA DISPONIBILE=2048 
CONTIENE I CARATTERI REVERSE-ON E REVERSE-OFF 
: C0STANTE=1 

: CONTIENE LE STRINGHE DIGITATE 
: LUNGHEZZA DELLA STRINGA IN* 

; INDIRIZZO DI PARTENZA DELL'OPERANDO IN ESAME 
: INDIRIZZI DI PARTENZA DEI DUE OPERANDI 
NUMERO DI CIFRE DELL'OPERANDO IN ESAME 
NUMERO DI CIFRE DEI DUE OPERANDI 

: USATA NEL CALCOLO DEL TEMPO DURANTE LA FASE DI LAMPEGGIO 
: NOME DELL'OPERAZIONE RICHIESTA 
: MASSIMO TRA LI E LI 
: NUMERO DI CIFRE DEL RISULTATO 
BUFFER DI COMODO 

80 REM CONTROLLO CHE IL PROGRAMMA SIA STATO CARICATO ALLA GIUSTA LOCAZIONE 
31 IF PEEKC44>=64 THEN GOTO 101 

82 REM AVVERTO CHE IL PROGRAMMA NON PUÒ' ANDARE IN ESECUZIONE 

83 GOSUB 61000 REM INIZIALIZZO COSTANTI C64 

84 POKE VI+32,6^REM CORNICE CELESTE 

85 POKE VI+33,6■PEM SFONDO CELESTE 

86 PPINT PEM CARATTERI IN GRIGIO 

87 PRINT "ATTENZIONE, HAI DIMENTICATO" 

88 PRINT "MDI IMMETTERE I SEGUENTI COMANDI-" 

89 PRINT "NSS1> POKE 44-64" 

90 PRINT “MS2> POKE 16384,0“ 

91 PRINT "MUPRIMA DI IMMETTERLI RICORDA" 

92 PRINT "MDI SALVARE IL PROGRAMMA, SE QUESTO “ 

93 PRINT "JINON E' GIÀ' PRESENTE SU NASTRO," 

94 PRINT "!E POI DI RICARICARLO" 

96 PRINT “MB" 

97 END 

100 REM TITOLO ED INIZIALIZZAZIONE COSTANTI C64 

101 PRINT CHR*<142>-REM CARATTERI MAIUSCOLI 
110 PG*="PRECISIONE INFINITA" 

120 GOSUB 62000 

130 PRINT ; REM CARATTERI NERI 

140 PRINT CHR*(14) : REM CARATTERI MINUSCOLI 

150 REM INIZIALIZZO COSTANTI DI USO 

160 ZE=0 : PI =2043 : TP= 16000 : R*=" : C= 1 

190 REM SPIEGAZIONE PROGRAMMA 

200 PRINT "TI" ; 

210 PRINT “ *" 

220 PRINT "MIAI A DISPOSIZIONE DUE OPERAZIONI,+ E *" 

230 PRINT "HCHE PERO' PUOI ESEGUIRE TRA NUMERI" 

240 PRINT "MINTERI DI LUNGHEZZA QUALSIASI." 

250 PRINT "M~ER ESEGUIRE I CALCOLI OCCORRE" 

260 PRINT "HDARE I VALORI DEI DUE OPERANDI ED IL" 

270 PRINT "MTIPO DELL'OPERAZIONE CHE SI VUOLE" 

280 PRINT "SESEGUIRE. *E NON SI DA' UN OPERANDO," 

290 PRINT "M5UEST0 VIENE SOSTITUITO DAL RISULTATO" 

300 PRINT "MPELLR PRECEDENTE OPERAZIONE." 

305 PRINT"*TER FINIRE DEVI DIGITARE SLS. " 

310 PRINT "Ma_~l .-/■ PER PROSEGUIRE." 

320 GET IN* : IF IN*OCHR*<13> THEN GOTO 320 
330 REM INIZIA IL PROGRAMMA 

340 PRINT "TI \“l -,~t * -,/_^/->l * "L - —,*^fV" 

341 REM LEGGO IL PRIMO OPERANDO 

342 GOSUB 3000 

540 REM LEGGO IL SECONDO OPERANDO 

541 GOSUB 3500 

670 REM LEGGO IL CODICE DELL'OPERAZIONE DA ESEGUIRE 

630 REM FACCIO LAMPEGGIARE LA SCRITTA FINCHE' NON E' DATO UN INPUT CORRETTO 
690 REM LA SCRITTA RIMANE IN UNO STATO NORMALE 0 DI REVERSE PER 172 DI SECONDO 
720 T=TI 

754 POKE 214,13 1 PRINT : REM RIGA 14 

760 PRINT MID*CR*,C, 1); "ITERAZIONE [+,*,_] ">■ iBIIIIiRIMRMH ; 

770 GET IN* : IF IN*="" THEN GOTO 850 

780 REM VEDO SE IL COMANDO E' CORRETTO, SE LO E' STAMPO IL CODICE OPERAZIONE 
790 IF IN*="+“ THEN OP*="*OMMA" GOSUB 4000 :GOSUE 10000'GOTO 341 

800 IF IN*="*" THEN OP*="\OLTIPLICAZIQNE" : GOSUB 4000:GOSUB 11000 ; GOTO 341 

801 IF IN*="F" THEN PRINT "ZtWT ;CHR*C 142) 

802 IF IN*="F" THEN POKE53280,14 ; P0KE53281,6PRINT"Cn" END 
830 REM IL COMANDO E' ERRATO 

840 GOTO 754 

850 IF TI>T+30 THEN C=3-CT=TI 
860 GOTO 754 

2990 REM ROUTINE:LEGGE IL VALORE DEL PRIMO OPERANDO 
3000 POKE 214, 5 :PRINT REM MI POSIZIONO SULLA SESTA RIGA 
3010 PRINT "OPERANDO 1 ? 

3020 REM LEGGO OPERANDO 

3021 OP=PI01=OP 
3030 GOSUB 5000 

3080 L1=LU : REM AGGIORNO IL NUMERO DI CIFRE DEL PRIMO OPERANDO 
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stesso procedimento per il 
secondo operando. 

Questo è memorizzato a 
partire dalla cella 
immediatamente successiva 
a quella occupata 
dall'ultima cifra del primo 
operando, individuata 
aggiungendo all'indirizzo 
2048 il numero delle cifre 
che compongono il primo 
operando (linea 3521). 

È poi presentata la 
richiesta di scegliere 
un 'operazione (linea 760). 
Qualora si digiti il tasto F 
il programma termina 
(linea 801); se invece si 
premono i tasti + o * 

(linee 790 + 800), sono 
visualizzate le scritte 
«somma» o «moltiplicazione» 
e «risultato» (routine 4000), 
ed è cancellata la zona del 
video dove il risultato sarà 
stampato (routine 21000). A 
seconda dell'operazione 
scelta, si passa il controllo 
alla routine 10000 (che 
effettua la somma) o alla 
11000 (che esegue la 
moltiplicazione). 

Per effettuare la somma, è 
innanzitutto necessario 
memorizzare in MA 
(variabile utilizzata per 
determinare quante volte 
sarà eseguito il ciclo della 
somma) il numero delle 
cifre che compongono 
l'addendo più lungo (linee 
10000+10010). Sono poi 
inizializzate le variabili LR 
(numero di cifre del 
risultato) e RE (riporto), ed 
è eseguito il ciclo della 
somma (linee 10040+10080). 
Questo inizia 
incrementando la 
lunghezza del risultato 
(linea 10050) e riportando in 
due variabili di comodo 
(Al e A2) il contenuto degli 
indirizzi dove erano state 
memorizzate le unità dei 
due numeri da sommare. 
Vengono poi sommati Al, 

A2 e il riporto (che nel caso 


3090 RETURN 

350S POKE 214,9 PRINT REM III POSIZIONO SULLA NONA RIGA 
3510 PPINT "OPERANDO 2 "> 

3520 REN LEGGO OPERANDO 

3521 0P=PI+L1 02=OP 
3530 GOSUB 5000 

3580 L2=LU : REM AGGIORNO IL NUMERO DI CIFRE DEL SECONDO OPERANDO 
3590 RETURN 

3990 REM ROUTINE STAMPO IL CODICE DELL'OPERAZIONE DA ESEGUIRE 
4000 POKE 214,13 PRINT 

4010 PRINT "SUPERAZIONE [+,*,-] ? IBIIiaiSIIilBiai 

4060 PRINT OP* 

4070 PRINT "HH-ISULTATO-" 

4071 PRiNT "-" 

4072 POKE 214,17 : PRINT : REM RIGA 18 

4073 GOSUB 21000 REM CANCELLO PARTE DELLE RIGHE PER IL RISULTATO 
4080 RETURN 

4990 REM ROUTINE LEGGE UN OPERANDO,SE E'=”“ LO PONE PARI AL RISULTATO PRECEDENTE 
5000 ZL=1@0 : GOSUB 60000 

5010 IF Z9>0 THEN GOTO 5121'REM LEN<IN*>=0? 

5020 REM COPIO RISULTATO PRECEDENTE IN OPERANDO ATTUALE 

5030 FOR 1=0 TO LR-1 

5040 POKE 0P+1,PEEK< TP-LR+I +1 ) 

5050 NEXT I 

5060 LU=LRREM AGGIORNO LUNGHEZZA 

5061 REM ORA STAMPO IL VALORE MEMORIZZATO 

5062 FOR I=0P TO OP+LU-1 

5063 PRINT RIGHT$(STR$(PEEK(I1); 

5064 NEXT I 

5065 PRINT 
5070 RETURN 

5080 REM L'OPERANDO E' STATO DIGITATO 

5120 REM TOLGO EVENTUALI ZERI NON SIGNIFICATIVI 

5121 IF Z9>1 THEN IF L£FT*<IN*,1>="0" THEN Z9=Z9-1:INt=RIGHTt(IN*,Z9) GOTO 5121 

5122 REM COPIO IN* IN MEMORIA AL POSTO DELL'OPERANDO OP 
5130 FOR 1 = 1 TO Z9 

5140 POKE OP+I-1,VAL<MID*(IN*,I,1)> 

5150 NEXT I 
5160 LU=29 
5200 RETURN 

9990 REM ROUTINE ESEGUE L'OPERAZIONE DI SOMMA TRA I DUE OPERANDI 

10000 MA=L1 ; REM CALCOLO IL MASSIMO TRA LE DUE LUNGHEZZE 

10010 IF MRCL2 THEN MA=L2 

10021 REM ESEGUO LA SOMMA 

10030 LR=0:RE=O 

1O040 FOR 1=1 TO MA 

10050 LR=LR+1 

10051 A1=PEEK<01+L1-I):IF I>L1 THEN A1=0 

10052 A2=PEEK<02+L2-I>■IF I>L2 THEN A2=0 
10060 POKE TP-I+1,A1+A2+RE 

10070 RE=0IF PEEKCTP-I+1)>9 THEN POKE(TP-I+1),PEEK<TP-I+1)-10:RE=1 
10030 NEXT I 

10090 REM CONTROLLO IL RESTO 
10100 IF RE=0 THEN GOTO 10150 
10110 LR=LR+1 

10140 POKE TP-I+1,1 

10141 REM STAMPO IL RISULTATO 
10150 GOSUB 20000 

10160 RETURN 

10990 REM ROUTINE ESEGUE L'OPERAZIONE DI MOLTIPLICAZIONE TRA I DUE OPERANDI 

11000 FOR I=TP TO TP-L1-L2+1 STEP -1 

11001 POKE I,ZE 

11002 NEXT 1 

11003 REM HO AZZERATO LA ZONA DI MEMORIA IN CUI ANDRA' IL RISULTATO 
11010 RE=0 LR=0 

11020 FOR 1=0 TO Ll-1 

11030 FOR J=0 TO L2-1 

11031 BU=TP-I-J 


11032 IF LR-KI+J THEN LR=LR+1 

11033 IF PEEK<O1+L1-I-1>=0 THEN J=L2 GOTO 11060 

11040 POKE BU,PEEK<01+L1-I-1>*PEEKC02+L2-J-1>+RE+PEEK<BU> 

11051 RE=INT <PEEK(BU)/10) 

11052 POKE BU,PEEK<BU>-RE*10 

11060 NEXT J 

11061 IF RE=0 THEN GOTO 11070 

11062 POKE BU-1,R£-INT<RE/10>*10 

11063 RE=INT(RE710> 

11064 BU=BU-1 ' IF LR-KTP-BU THEN LR=LR+1 

11065 GOTO 11061 
11070 NEXT I 

11080 REM CONTROLLO UN RESTO SULL'ULTIMA CIFRA 
11090 IF RE=0 THEN GOTO 11150 
11100 POKE TP-LR,RE-INT<R£/10>*10 
11110 RE=INT(RE/10) 

11120 LR=LR+1 

11130 GOTO 11090 

11140 REM STAMPO IL RISULTATO 

11150 GOSUB 20000 

11160 RETURN 

19990 REM ROUTINE STAMPA IL RISULTATO CONTENUTO IN MEMORIA 
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delle unità sarà 0), 
mettendo il risultato 
nell'indirizzo di memoria 
TP (linea 10060). Qualora il 
risultato di tale somma sia 
maggiore di 9, si 
memorizza 1 in RE e al 
contenuto della memoria di 
indirizzo TP (risultato) è 
sottratto 10 (linea 10070). Il 
ciclo è poi ripetuto per le 
decine, memorizzando il 
risultato nella locazione 
TP—1, e così di seguito, 
fino a quando non si sono 
sommate tutte le cifre che 
componevano i due addendi. 
Si controlla poi se è rimasto 
un riporto (linee 
10100+10140), prima di 
visualizzare il risultato 
ricorrendo alla routine 
20000. 

La routine 11000, che 
esegue la moltiplicazione di 
due numeri, inizia con 
l'azzeramento di tutte le 
celle in cui andrà 
memorizzato il risultato 
dell'operazione (linee 
11000+11002), passando poi 
all’inizializzazione delle 
variabili RE e LR (linea 
11010). Si incontra quindi il 
doppio ciclo che esegue la 
moltiplicazione (linee 
11020+11070), nel quale si 
moltiplica innanzitutto la 
cifra meno significativa del 
primo operando per tutte le 
cifre del secondo (linee 
11031 + 11060), tenendo 
sempre conto dei riporti 
(linee 11061 + 11070), poi la 
successiva cifra del primo 
operando per tutte quelle 
del secondo, e così via fino 
ad esaurire le cifre da 
moltiplicare. Ogni risultato 
è memorizzato in un 
indirizzo di memoria ed i 
risultati che corrispondono 
ad uno stesso indirizzo 
sono sommati tra di loro. 

Si controlla quindi 
l'eventuale riporto (linee 
11090+11130), prima di 
visualizzare il risultato. 


20000 IF PEEK<TP-LR+1>=0 THEN IF LR>1 THEN LP=LR-1:GOTO 20000 

20020 REM HO TOLTO GLI EVENTUALI ZERI NON SIGNIFICHIVI 

20100 POKE 214,18 PRINT 

20110 FOR I=TP-LR+1 TO TP 

20120 PRINT RICHT$<STRfCPEEKO)), 1>/ 

20130 NEXT I 
20140 PRINT 
20150 RETURN 

20990 REM ROUTINE'CANCELLA PARTE DELLE RIGHE NELLE QUALI APPARIRÀ' IL RISULTATO 

21000 FOR I=MV+19*40 TO MV+25*40-l 

21010 POKE 1,32 

21020 NEXT I 

21030 RETURN 

59920 REM ROUTINE GESTISCE L'INPUT DI UNA STRINGA NUMERICA 

59930 REM LE VARIABILI UTILIZZATE S0NQ:Z6,Z7,Z8,Z9,Z8*,INJ 

59940 REM IN INGRESSO VUOLE IL VALORE ZL CHE E' LA LUNGHEZZA MASSIMA DELLA 

59950 REM STRINGA DA LEGGERE 

59960 REM IN USCITA DA' LA STRINGA LETTA IN IN* E LA SUA LUNGHEZZA IN Z9 

59980 REM CANCELLO LA ZONA DI SCHERMO IN CUI VERRÀ' DIGITATA LA STRINGA 

60000 FOR Z8=l TO ZL: PRINT " "; ; NEXT Z8 

60010 FOR Z8=l TO ZL: PRINT "II";: NEXT Z3 

60020 IN$=" H: Z7=TI 

60040 REM LEGGO UN CARATTERE 

60060 GET Z8$ : IF Z8*<>"" THEN 60160 

60080 REM ACCENSIONE E SPEGNIMENTO DEL CURSORE 

60100 IF Z7CTI AND N0TCZ6) THEN PRINT “Tir;:Z6=N0T<Z6>:Z7=TI+15 

60110 IF Z7CTI AND Z6 THEN PRINT " II"; :Z6=N0T<Z6> :Z7=TI+15 

60120 GOTO 60060 

60140 REM E' STATO DIGITATO UN CARATTERE 
60160 Z8=ASC(Z8$):Z9=LENaN*l 

60180 REM SE NON E' UN CARATTERE NUMERICO, DEVE ESSERE UN RETURN 0 DELETE 
60190 IF N0T(Z8>47 AND Z8C58) THEN GOTO 60320 

60200 IF HOT(<Z8>47 AND Z8C58) OR <ZS>64 AND Z8<91>) THEN GOTO 60320 
60220 REM CONTROLLO CHE NON SIA STATA SUPERATA LA LUNGHEZZA MASSIMA 
60240 IF Z9=ZL THEN GOTO 60060 
60260 REM LO AGGIUNGO ALLA STRINGA IN* 

60280 IN$=IN$+Z8$ PRINT ZS$i GOTO 60060 

60300 REM SE E' UN RETURN, HO TERMINATO LA LETTURA 

60320 IF Z8=13 THEN PRINT " II";:RETURN 

60340 REM SE E' DELETE, CANCELLO IN IN* E SUL VIDEO L' ULTIMO CARATTERE DIGITATO 
60360 IF Z8=20 AND Z9>0 THEN INT=LEFT$<IN*,Z9-1):PRINT " HI"; GOTO 60060 
60370 GOTO 60060 

60960 REM ROUTINE INIZIHLIZZAZIONE COSTANTI 

60980 REM CIRCUITO VIDEO 

6100O VI=53243 

61020 REM CIRCUITO SUONO 

61040 SI=54272 

61060 REM MEMORIA VIDEO 

61080 MV=1024 

61100 REM MEMORIA COLORE 

61120 MC=55296 

61140 REM COSTANTI DI USO COMUNE 
61160 ZL=9 

61180 REM INIZIALIZZRZIONE CHIP SUONO 

61200 FOR 1=0 TO 24 

61210 POKE SI+1,0 

61220 NEXT I 

61230 RETURN 

61980 REM ROUTINE:STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IH PG* 

62000 GOSUB 61000 
62010 POKE VI+32,15 
62020 POKE VI+33.15 
62030 PRINT "nsIsRIB". 

62040 PRINT THB(6>;“r- 1 “ 

62050 FOR 1 = 1 TO 5 

62060 PRINT TAB<6>;“I I" 

62070 NEXT I 

62030 PRINT TAB(6>;" - - J " 

62090 PRINT TAB(6>,“3SKRKWWDIGITR SRETURNB PER PROSEGUIRE" 

62100 PRINT 
62110 FOR 1=1 TO 5 
62120 PRINT TAB<7>; 

62130 FOR J=I TO 26 

62140 print "aa 

62150 NEXT J 
62160 PRINT 
62170 NEXT I 

62190 REM ORA SCRIVO IL TITOLO 

62210 PRINT "OTKRBBSMM" ;TAB<<40-LENCPG*>>/2>; ’;PGt 
62220 GET Z9$ 

62230 IF Z9*OCHR*<13> THEN GOTO 62220 
62240 PRINT "Ha"; 

62250 RETURN 
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L’archivio veloce 



Gli elenchi di dati costituiscono probabilmente le strutture informative 
più impiegate nelle applicazioni di ogni tipo. Tali elenchi possono essere 
caratterizzati in modo preciso dando loro il nome di tabelle. Una tabella 
è una successione di elementi, ciascuno dei quali comprende due parti: 
una chiave che distingue l’elemento dagli altri e un’informazione asso¬ 
ciata alla chiave. Funzione della tabella è quindi la memorizzazione di 
dati cui successivamente si può accedere mediante le chiavi associate. 
L’operazione fondamentale che si esegue di solito in una tabella è la ri¬ 
cerca di un elemento, ma bisogna anche tener conto della eventuale ne¬ 
cessità di effettuare inserzioni e cancellazioni, e delle modalità di indivi¬ 
duazione degli elementi. 

I principali metodi utilizzati sono la ricerca completa (sequenziale), la 
ricerca binaria e la ricerca hash. 

II programma che vogliamo realizzare sarà un esempio di gestione di elen¬ 
chi di dati con metodo di ricerca hash. 


Il metodo più semplice per organizzare una tabella è quello di memoriz- 
Analisi del zare i suoi elementi senza seguire alcuna regola di ordinamento. L’ope- 

problema razione di ricerca nella tabella, detta ricerca completa, si effettua scan¬ 

dendone gli elementi fino a trovare la chiave desiderata. Il numero me¬ 
dio di confronti necessari a individuare un elemento con questo sistema 
è (n+1)/2, con n uguale al numero degli elementi della tabella. Ovviamente 
quanto più grande è la tabella tanto maggiore sarà il numero dei con¬ 
fronti necessari per individuare un elemento; ciò significa che le tabelle 
organizzate con questo metodo sono utili solo per memorizzare una quan¬ 
tità limitata di elementi. 

La ricerca in una tabella è facilitata se gli elementi sono disposti seguen¬ 
do una regola di ordinamento (ad esempio, quello alfabetico). Si suppon¬ 
ga di cercare una parola in un dizionario e di aprirlo inizialmente esat¬ 
tamente al centro; si confronta la voce centrale con quella cercata e si 
stabilisce se quest'ultima si trova nella prima o nella seconda metà del 
dizionario. Si apre poi al centro la metà del dizionario interessata, si ri¬ 
pete il confronto tra le voci e così via fino a raggiungere la voce deside¬ 
rata. Se avessimo sfogliato ad una ad una le pagine del dizionario dalla 
prima fino a quella cercata avremmo quasi sicuramente impiegato più 
tempo. Il metodo descritto per cercare la parola nel dizionario prende 
il nome di ricerca binaria. Il principale inconveniente è che l'ordinamento 
necessario per le chiavi comporta che il metodo di ricerca binaria può 
essere impiegato solo per tabelle a composizione fissa, in cui in partico¬ 
lare non sia richiesta l’inserzione di nuovi elementi in tempi successivi. 
Tutti i problemi che presentano la ricerca completa e la ricerca binaria 
sarebbero risolti trovando un sistema che permetta di individuare diret¬ 
tamente un elemento e nello stesso tempo di inserire nuovi elementi in 
ogni momento. Un sistema è quello di calcolare, tramite una funzione 
(funzione hash), un diverso indirizzo della tabella per ogni elemento che 
vi si inserisce. La stessa funzione sarà poi usata per la ricerca. Si po¬ 
tranno scegliere funzioni hash di qualsiasi tipo; la loro complessità di¬ 
penderà in primo luogo dal numero e dalle caratteristiche degli elemen¬ 
ti che la tabella dovrà contenere. Supponiamo ad esempio di voler co¬ 
struire una tabella contenente informazioni relative a industrie produt¬ 
trici di automobili e di utilizzare una funzione tale che l’indirizzo di ogni 
elemento della tabella derivi dalla somma delle posizioni occupate nel¬ 
l’alfabeto dalle prime due lettere della chiave. La chiave FIAT individue¬ 
rà allora l’indirizzo 15 (F occupa la 6 a posizione nell’alfabeto, I la 9 a , quin- 
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di l’indirizzo individuato sarà 6 + 9=15). Se però si sono già introdotte 
informazioni relative alla OPEL, quando si andranno a inserire i dati della 
PORSCHE si verificherà una «collisione»: infatti, essendo uguali le pri¬ 
me due lettere che compongono i nomi di queste due case automobilisti¬ 
che, anche gli indirizzi individuati utilizzando la funzione hash saranno 
uguali, e quando si cercherà di inserire i dati relativi alla seconda marca 
si troverà la posizione già occupata. Si può ovviare a questo inconveniente 
prevedendo di memorizzare le informazioni relative alla PORSCHE nel 
primo elemento libero che si incontra scorrendo la tabella a partire dal¬ 
l’elemento trovato occupato. Questo procedimento richiede che la tabel¬ 
la sia considerata circolare, cioè che la sua prima posizione sia trattata 
come consecutiva all’ultima, e comporta inoltre un aumento dei confronti 
necessari nella ricerca, poiché la ricerca di una chiave procede attraver¬ 
so gli stessi passi seguiti in fase di inserzione. Nel caso si preveda il veri¬ 
ficarsi di molte collisioni, conviene scegliere una funzione più complica¬ 
ta, che riduca al minimo questa eventualità. 

11 nostro programma dovrà quindi permettere di svolgere le seguenti ope¬ 
razioni: 

■ inserire un elemento in tabella 

■ eliminare un elemento dalla tabella 

■ visualizzare le informazioni associate ad una chiave 

■ visualizzare tutti gli elementi della tabella 

■ memorizzare la tabella su disco 

■ leggere da disco una tabella precedentemente memorizzata 



Per ridurre al minimo la possibilità di collisione, nel calcolo degli indi¬ 
rizzi saranno previste due diverse funzioni hash: se ne userà normalmente 
una, e si ricorrerà all'altra solo nel caso che la posizione individuata dal¬ 
la prima risulti già occupata; ciò permetterà di ridurre al minimo l’inse¬ 
rimento degli elementi tramite ricorso allo scorrimento della tabella fi¬ 
no al suo primo indirizzo libero. 

Per effettuare la ricerca di una chiave, onde visualizzare le informazioni 
ad essa associate, il programma dovrà calcolare l’indirizzo individuato 
dalla chiave fornita utilizzando la prima funzione hash; verificherà poi 
che la posizione raggiunta contenga effettivamente i dati desiderati, con¬ 
frontando se la chiave inserita è uguale a quella memorizzata nell'indi¬ 
rizzo individuato. 

Se non è così, sarà calcolato un nuovo indirizzo con la seconda funzione 
e se neppure in questo caso si individuasse l’elemento cercato, si proce¬ 
derà a scorrere la tabella fino a trovare il dato in questione, o a determi¬ 
nare che non esiste un elemento associato alla chiave introdotta. 

Per effettuare la cancellazione si userà lo stesso procedimento per acce¬ 
dere all’elemento da eliminare, che sarà poi cancellato rendendo dispo¬ 
nibile la posizione che occupava nella tabella per successive inserzioni. 
La memorizzazione della tabella su disco avverrà caricando su questo 
solo gli elementi effettivamente occupati; quando poi si vorrà riutilizza¬ 
re la tabella memorizzata sul disco si costruirà una tabella vuota in me¬ 
moria in cui saranno copiati (dal disco) gli elementi contenenti infor¬ 
mazioni. 

Per visualizzare l’intera tabella si accederà ai suoi elementi in maniera 
sequenziale, evitando però di stampare gli elementi che risultano liberi. 
La prima funzione che sarà adottata per calcolare gli indirizzi eleverà 
a potenze crescenti i codici ASCII dei caratteri che compongono la chia¬ 
ve fornita, in base alla loro posizione nella chiave stessa, e sommerà poi 
tra di loro i risultati; la seconda funzione opererà in modo simile, solo 
che i codici ASCII saranno elevati a potenze decrescenti in base alla loro 
posizione. 
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Diagrammi 
di flusso 


Dopo aver inizializzato le 
costanti e stampato il 
titolo, il programma chiede 
se la tabella su cui l'utente 
intende operare esiste già 
su disco. Se è così, una 
volta letto il suo nome, 
apre il file nel quale è 
contenuta e la carica in 
memoria; se si vuole 
invece creare una nuova 
tabella è necessario 
definirla. 

In entrambi i casi si 
confluisce alla 
visualizzazione del menù in 
cui sono elencati i 
comandi predisposti per la 
gestione (inserzione, 
eliminazione, 
visualizzazione di un 
elemento, visualizzazione e 
salvataggio di una tabella). 
Messo l'utente in 
condizione di selezionare 
una scelta, il programma, 
dopo aver letto il comando, 
entra nel ciclo che 
determina quale esecuzione 
deve associare al 
comando prescelto. 

Al fine di rendere più 
comprensibile il metodo 
hash, illustriamo 
dettagliatamente come si 
articola il diagramma di 
inserzione di un elemento 
nella tabella. Una volta che 
il programma ha letto la 
chiave la manipola 
attraverso una funzione per 
estrarre da essa un 
indirizzo. 

Quindi si passa a verificare 
se l'indirizzo ottenuto dalla 
funzione hash è già 
occupato. Se è libero si 
procede all’inserzione 
dell'elemento, mentre se 
è occupato ciò 
può dipendere da due 
diverse situazioni. 


Inizializzazione 


( \ 

START 


Z Stampa 

del titolo 


< 


Tabella già 
esistente? 


NO 


) 


SI 


Ricerca, apertura 
e trasferimento 
da disco 


“31 


/ Visualizzazione 
del menù 

Z Acquisizione 

di un comando 


c 

i 

( 


Stampare 

elementi 

occupati? 


NO 


Inserire un 
elemento? 


> S Visualizzazione 

J elementi della 
/ tabella occupati / 

) 


SI 


Inserimento di 
un elemento 
nella tabella 


NO 


Eliminare 
un elemento? 




Eliminazione 
dell'elemento 
dalla tabella 


NO 


< c ,______ ®L J Visualizzazione / _ 

jrs., ) ■>!_ * «3sr 


( 

< 


NO v 

Memorizzare 
tabella su 
disco? 

NO 

Finire 

l’esecuzione? 


> 

> 


Trasferimento 
tabella su 
disco 


SI 


EN ° 
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Se l’indirizzo è già 
occupato dalla medesima 
chiave (si sta tentando di 
inserire una chiave già 
esistente) il programma 
invierà un messaggio. 
L'altra possibilità è quella 
della «collisione»: il valore 
ottenuto dalla funzione 
corrisponde all'indirizzo di 
una chiave 

precedentemente inserita; 
in questo caso il 
programma calcola un 
altro indirizzo con una 
nuova funzione hash 
applicata alla chiave da 
immettere. 

Determinato il nuovo 
indirizzo si controlla se la 
locazione è libera o no. 
Qualora sia libera avviene 
l'inserzione, altrimenti il 
programma inizia a 
scorrere in maniera 
sequenziale la tabella (a 
partire dalla locazione 
trovata occupata) e 
inserisce l'elemento nella 
prima locazione libera che 
incontra. Nell'eventualità in 
cui non si trovi nessuna 
locazione libera è inviato 
un messaggio di 
avvertimento. 

Come nel programma 
«Archivio», anche in questo 
caso i caratteri «:» e «,» 
sono interpretati dal driver 
come comandi, e pertanto 
non possono essere 
immessi come dati da 
memorizzare. 

Per la soluzione di questo 
problema rinviamo al 
commento e al listato del 
programma « Editor» (pag. 
177), in cui sono inserite 
due routines che 
provvedono alla 
transcodifica prima della 
memorizzazione e dopo il 
caricamento da disco. 


Inserimento di un elemento 
nella tabella 

I 

/ Lettura 

della chiave 



Calcolo valore 
della prima 
funzione hash 
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Il programma 


Il programma comincia 
con l'initializzazione delle 
costanti del C-64 (circuito 
video, circuito suono, 
memoria video, memoria 
colore, ecc.) e con la 
presentazione del titolo 
(linee 110, 120). 

Sono poi impostali i 
caratteri in minuscolo 
(linea 121), è dimensionata 
la tabella (linea 147) e sono 
inizializzate alcune costanti 
(linea 142). Quindi si 
inizializza la tavola delle 
chiavi e dei dati (linee 
149+151). Si chiede poi se 
la tabella è già 
memorizza.ta su disco (linea 
170) e si passa il controllo 
alla routine 60000 che 
gestisce l’ingresso del 
carattere digitato in 
risposta (linea 180). Qualora 
la tabella si trovi su disco 
bisogna indicarne il 
nome (linee 210+230); il 
programma apre quindi il 
canale di comando (linea 
250) e quello di 
comunicazione con il file 
(linea 260), e controlla 
che il file contenente la 
tabella esista (linea 290). In 
caso di errore è 
visualizzato un messaggio 
(linee 310+360), si 
chiudono i canali (linee 
380, 390) ed è ripresentata 
la richiesta del nome della 
tabella (linea 410). Si legge 
poi la tabella dal disco 
(linee 430, 440), si controlla 
se si sono verificati errori 
(linea 460) e si presenta il 
menù comandi (linea 560) 
chiamando la routine 
10000. Questa routine 
gestisce inoltre 
l’immissione del numero 
che individua l'operazione 
desiderata (linea 10110) e 


e REM ******************* 

1 REM *L'ARCHIVIO VELOCE* 

2 REM ******************* 

4 REM VARIABILI UTILIZZATE 


6 REM I,J 

7 REM SVf 

8 REM VI» 

9 REM UT 

10 REM IN* 
lì REM E,E* 

12 REM T,S 

13 REM I»,TM» 

14 REM CO* 

13 REM CH* 

16 REM TR 


: CONTATORI DI CICLO 

CONTIENE L'IDENTIFICATORE DI STRINGA VUOTH 
• INDICA CHE LA CHIAVE E' STATA ELIMINATA 
■ NUMERO DELLE RIGHE DELLA TABELLA THSCDT5 
iINPUT DA TASTIERA 
: CODICI DELL'ERRORE SU DISCO 
!TRACCIA E SETTORE DELL'ERRORE SU DISCO 
: USATE NELLA MEMORIZZAZIONE E RECUPERO DA DISCO 
! COMANDO IMPOSTATO 

: CONTIENE LA CHIAVE D'ACCESSO HD UNA RIGA DELLA TRBELLR 
: FLRG, SE=1 INDICA TROVATO 
17 REM TA*<.)!THBELLH CHE CONTIENE LR CHIAVI E LE INFORMAZIONI ASSOCIATE 

100 REM TITOLO ED INIZIRLIZZAZ10NE COSTANTI 

101 PRINT CHR*(I4Z)!REM CARATTERI MAIUSCOLI 
110 PG*="L'ARCHIVIO VELOCE" 

120 GOSUB 62000 

121 PRINT CHR*(14>:REM CARATTERI MINUSCOLI 

141 REM INIZIRLIZZO COSTANTI USATE 

142 SV»«" S WH I tt Bf t iai l i r : VI**"DT=200 

146 REM DIMENSIONO LA TAVOLA DELLE CHIAVI E DATI 

147 DIM TRSCDT) 

148 REM INIZIRLIZZO LA TAVOLA DELLE CHIAVI E DRTI 

149 FOR 1=0 TO DT 

130 TR*(I)»SV* 

131 NEXT I 

132 PRINT 11 ■” : REM CARATTERI IN NERO 

160 REM CHIEDO SE OCCORRE INIZIALIZZARE LA TAVOLA 0 SE E' GIR' STATA MEMORIZZATA 

170 PRINT "CBBLA TRBELLR E' SU DISCO ? CS/N3 " l- 

180 ZL»I : GOSUB 60000-PRINT 

190 IF IN*0"S” THEN GOTO 540 

200 REM DEVO LEGGERE LH TABELLA DA DISCO 

210 PRINT "HK/OME DEL FILE ? "J 

220 ZL B I0 : GOSUB 60000 : PRINT 

230 IF IN**"" THEN PRINT "Tm":GOTO 210 

240 REM APRO I CANALI DI ERRORE E DRTI 

230 OPEN 15,8,15 

260 OPEN 4,8,4,IN»+",S,R" 

270 REM CONTROLLO CHE IL FILE ESISTH 

280 INPUT#15,E,E*,T,S 

290 IF E<20 THEN GOTO 430 

300 REM C'E' UN ERRORE DEL DRIVER 

310 PRINT "I3HWTTENZIONE, ERRORE DEL DRIVER 1 " 

320 PRINT "MAIMERO 'SE 

330 PRINT "BKJDICE 'SE* 

340 PRINT "MI RRCCIA ’ST 

330 PRINT "M*ETTORE 'SS 

360 PRINT "®H_ICOMINCIAMO." 

370 PRINT41S,“I" 

380 CLOSE 4 

390 CLOSE 15 

400 GOSUB 5000-REM ATTENDO RETURN 
410 GOTO 170 

420 REM LEGGO LR TABELLA DA DISCO 

430 1NPUTR4,I» : I=VAL(I*) 

431 1NPUT#4,TR*(I) 

440 IF ST*64 THEN GOTO 471 

450 REM CONTROLLO EVENTUALI ERRORI 

460 IF STO0 AND ST064 THEN GOTO 300 

470 GOTO 430 

471 CLOSE 4!REM CHIUDO CANRLE DATI 

472 CLOSE 15!REM CHIUDO CANALE COMANDI 
540 PRINT "3" 

550 REM PRESENTAZIONE MENU COMANDI 
560 GOSUB 10000 

570 REM ESEGUO IL COMANDO DATO 

580 ON VAL(CO*) GOSUB 20000,21000,22000,23000,23500,24000 
590 REM IL COMANDO E' STATO ESEGUITO, RICOMINCIO 
630 GOTO560 

4990 REM ROUTINE:CHIEDE DI DIGITARE RETURN PER PROSEGUIRE 
5000 POKE 214,23:PRINT 

5010 PRINT "-IGITA SU“I ,-/* PER PROSEGUIREI" 

5020 GET IN* ! IF IN*OCHR*<t3) THEN GOTO 5020 
5030 RETURN 

9990 REM ROUTINE : PRESENTAZIONE MENU COMANDI 

10000 POKE VI+32,6 ; P0KE VI+33,6!REM SFONDO BLU 

10001 PRINT "T--REM CARATTERI IN BIANCO 

10009 PRINT ".TSTAB(8);“S ~ / t - T N * / “ 

10010 PRINT "MI : -INSERISCI UN ELEMENTO IN TABELLA" 

10020 PRINT "SE : "LIMINR UN ELEMENTO DALLA TRBELLA" 

10030 PRINT "M3! STAMPA LE INFORMAZIONI ASSOCIATE AD UNA CHIAVE" 

10040 PRINT "W: *ALVA LR THBELLH SU DISCO" 

10045 PRINT "SJ5 : OTAMPA TUTTA LA TABELLA" 

10050 PRINT "»5: IERMINH LH SESSIONE DI LAVORO" 

10061 PRINT "MTOU-IGITR LH TUA SCELTA" 

10062 PRINT "«SEGUITA DA 3-H ,_/■ 

10080 GET IN* 
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l'emissione di un 
avvertimento sonoro nel 
caso in cui sia stato 
digitato un tasto che non è 
associato ad alcuno dei 
comandi previsti (linee 
10130+10210). Il controllo 
torna poi alla linea 580 che 
chiama la routine che 
gestisce la funzione 
richiesta dall'utente. 

La routine 20000, che svolge 
l’operazione di inserimento 
di un elemento nella 
tabella, inizia affidando 
alla routine 40000 il 
compito di richiedere e di 
gestire l'immissione della 
chiave, la quale deve essere 
comunque pari a dieci 
caratteri. Qualora infatti se 
ne fornisca una più corta il 
programma provvederà ad 
aggiungervi caratteri che 
non saranno visualizzati, 
fino ad arrivare a dieci 
(linea 40040). Si calcola poi 
l'indirizzo individuato dalla 
chiave immessa mediante 
una prima funzione hash 
(routines 30000 + 30060) e si 
controlla che non sia già 
occupato, o che non si tratti 
di un elemento eliminato 
precedentemente (linea 
20060). Se la posizione 
risulta già occupata si 
verifica per prima cosa che 
non sia stata inserita una 
chiave già usata (linea 
20090), nel qual caso si 
visualizza un messaggio di 
avvertimento (linea 20110). 
Se invece la chiave non è 
stata usata, ma si è 
individuata una posizione 
della tabella occupata da 
un altro elemento, si 
calcola una nuova chiave 
con una seconda funzione 
(routines 31000 +31060). 
Infine, qualora risulti 
occupato anche questo 
nuovo indirizzo, si cerca 
una posizione libera 
scorrendo sequenzialmente 
la tabella a partire 
dall'indirizzo 


10090 IF IN*-"" THEN GOTO 10080 

10100 REM CONTROLLO CHE IL COMANDO SIA CORRETTO 

10110 IF IN*>"0" AND IN*<"7" THEN GOTO 10220 

10120 REM IL COMANDO E' ERRATO, AVVISO SONORO 

10130 POKE SI+24,15 : REM VOLUME 

10140 POKE SI,0 : POKE SI+1,20:REM FREQUENZA 

10150 POKE SI+5,15 : REM ATTACK,DECAV 

10160 POKE SI+6,240REM SUSTAIN, RELEASE 

10170 POKE SI+4,17 REM FORMA D'ONDA 

10180 FOR 1-1 TO 80 : NEXT I :REM RITARDO 

10190 POKE SI+4,0 : REM DISATTIVO EMISSIONE SONORA 

10200 POKE SI+24,0 REM VOLUME A ZERO 

10210 GOTO 10080 

10220 PRINT "8'';INS;"S"; 

10221 CO*-IN* 

10230 GET IN* 

10240 IF IN*=CHR*<205 THEN PRINT IN»; : GOTO 10080:PEM CARATTERE CMD 
10250 IF IN*OCHR*(13) THEN GOTO 10230 
10260 RETURN 

19990 REM ROUTINE: INSERISCE UN ELEMENTO IN TABELLA 
20000 PRINT "23"; TABC15 )! "\/*~-+->r/“HKHB" 

20010 REM RICHIEDO CHIAVE D'ACCESSO 
20020 GOSUB 40000: IF CH*="" THEN RETURN 

20030 REM CALCOLO INDIRIZZO TRAMITE UNA PRIMA FUNZIONE HASH 
20040 GOSUB 30000 

20050 REM CONTROLLO CHE IL POSTO NON SIA GIR' OCCUPATO 

20051 REM OPPURE CHE L'ELEMENTO CORRISPONDENTE NON SIA STATO ELIMINATO 
20060 IF (LEFT*(TA*(P0),10)=SV*> OR <LEFT*(TA*(PO>,10>=VI*> THEN GOTO 20330 
20070 PEM IL POSTO E' GIR' OCCUPATO 

20080 REM CONTROLLO CHE NON SIA UN ELEMENTO CON LA STESSA CHIAVE D'ACCESSO 

20090 IF LEFT*<TA*(PO),10)OCH* THEN DOTO 20170 

20100 PEM LA CHIAVE E' LA STESSA 

20110 PRINT "HWTTENZIONE, LA CHIAVE a";CH*;"B E'" 

20120 PRINT "«DIA' STATA USATA." 

20130 GOSUB 5000:REM ATTENDO RETURN 
20140 REM RICOMINCIO 
20150 RETURN 

20160 REM PROVO CON UNA SECONDA FUNZIONE HASH 
20170 GOSUB 31000 

20180 PEM CONTROLLO CHE IL POSTO NON SIA GIR' OCCUPATO 

20190 IF (LEFT*CTA*(PO), 10)=SV*> OR (LEFT*<TA*'PO>, 10>-VI*) THEN GOTO 20330 
20210 REM CONTROLLO CHE NON SIA UN ELEMENTO CON LA STESSA CHIAVE D'ACCESSO 
20220 IF LEFT*<TA*<PQ), 101OCH* THEN GOTO 20260 
20230 REM LA CHIAVE E' LA STESSA 
20240 GOTO 20110 

20250 REM CERCO SEQUENZIALMENTE I PRIMO POSTO LIBERO 0 UNA CHIAVE UGUALE 
20260 I=P0+1 

20270 IF I-DT+1 THEN 1-0 

20280 IF I«PO THEN GOTO 20410 REM LA TABELLA E' PIENA 

20290 IF (LEFT*(TA*(I>,10>-SV*) OR (LEFT*(TSSCI>,101-VI*) THEN PO=i:GOTO 20330 
20300 IF LEFT*(TR*a>,10>=CH* THEN GOTO 20110:REM LA CHIAVE E' GIR' STATA USATA 
20310 1 = 1 + 1 :G0T0 20270 

20320 REM E' STATO TROVATO UN POSTO LIBERO 

20330 PRINT "HiriGITA L'INFORMAZIONE ASSOCIATA ALLA" 

20340 PRINT "«CHIAVE a",CH*;"5 , HAI A DISPOSIZIONE" 

20350 PRINT "W78 CARATTERI." 

20360 PRINT "BKNFORMAZIONE ASSOCIATA:" 

20361 PRINT "-“ 

20362 PRINT 

20363 ZL=78:GOSUB 60000 PRINT 

20364 IF IN*»”" THEN PRINT "TrTTTTT GOTO 20360 
20370 REM MEMORIZZO L'INFORMAZIONE 

20380 TA*(PO)=CH*+IN* 

20390 REM HO TERMINATO L'INSERZIONE 
20400 RETURN 

20410 REM LA TABELLA E' COMPLETAMENTE RIEMPITA 
20420 PRINT "nWBWDWTTENZIONE, LA TABELLA E' PIENA." 

20430 PRINT "KA)H POSSONO ESSERE EFFETTUATE INSERZIONI" 

20440 GOSUB 5000 REM ATTENDO RETURN 
20450 RETURN 

20990 REM ROUTINE ELIMINA UN ELEMENTO DALLA TABELLA 
21000 PRINT ":r;TABa4:>;"~c%v/*^r/-!OTra’' 

21010 REM RICHIEDO CHIAVE D'ACCESSO 

21020 GOSUB 40000 IF CH*="" THEN RETURN 

21030 REM CERCO LA CHIAVE CH* IN TABELLA 

21040 GOSUB 3200G 

21060 IF TR=1 THEN GOTO 21130 

21070 REM LA CHIAVE NON E' STATA TROVATA 

21030 PRINT "««ATTENZIONE, LA CHIAVE 3" ;CH*, "B NON" 

21090 PRINT "BE' PRESENTE IN TABELLA." 

21100 GOSUB 5000 REM ATTENDO RETURN 
21110 RETURN 

21120 REM LA CHIAVE E' STATA TROVATA, LA ELIMINO 
21130 TA*CP0)=VI* 

21140 PRINT “«LA CHIAVE a";CH*;"B E' STATA" 

21150 PRINT 11 «ELIMINATA DALLA TABELLA." 

21160 GOSUB 5000 REM ATTENDO RETURN 
21170 RETURN 

21990 REM ROUTINE RICERCA UN ELEMENTO IN TABELLA 
22000 PRINT "rr,TAB<17>;"^----^Mroi<r 
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immediatamente successivo 
a quello trovato occupato fino 
a tornare alla posizione 
individuata da quest'ultimo 
(linee 20270+20310). Se non si 
trova alcun posto libero la 
tabella è ovviamente piena, si 
visualizza allora un messaggio 
(linee 20420, 20430) e si 
ripresenta il menù comandi. 
Quando invece si è 
individuata una posizione 
libera, si richiede di 
inserire i dati associati alla 
chiave (linee 20330+20360), 
che è quindi memorizzata 
insieme a questi (linea 
20370), per poi ripresentare 
il menù comandi. 

La cancellazione di un 
elemento della tabella è 
gestita dalla routine 21000, 
che chiede la chiave 
dell'elemento che si vuole 
eliminare (linea 21020) e 
passa il controllo alla 
routine 32000. Questa 
routine, calcolato 
l'indirizzo individuato dalla 
chiave con la prima 
funzione (linea 32020), 
controlla se a tale indirizzo 
corrisponde realmente 
l'elemento cercato (linea 
32030) o se non vi 
corrisponde alcun 
elemento. Qualora non si 
verifichi uno di questi casi 
significa che è avvenuta 
una collisione; è allora 
necessario calcolare un 
nuovo indirizzo con la 
seconda funzione (linea 
32060). Se anche la nuova 
posizione non contiene 
l’elemento desiderato e non 
è vuota (linee 32070, 32080) 
i dati richiesti si cercano 
scorrendo sequenzialmente 
la tabella (linee 
32120 + 32160). Il controllo è 
poi restituito alla linea 
21060, dove troviamo il test 
per verificare se è stato 
individuato l’elemento 
cercato. Nel caso in cui 
l'elemento non sia stato 
trovato si informa l’utente 


22010 REM RICHIEDO CHIAVE D'ACCESSO 

22020 GOSUB 40000:IF CH$="" THEN RETURN 

22030 REM CERCO LA CHIAVE CH4 IN TABELLA 

22040 OQSUB 32000 

22060 1F TR=1 THEN GOTO 22130 

22070 REM LA CHIAVE NON E' STATA TROVATA 

22080 PRINT "M!»TTENZIONE, LA CHIAVE S",CHf, "■ NON" 

22090 PRINT "HE' PRESENTE IN TABELLA." 

22100 GOSUB 5000:REM ATTENDO RETURN 
22110 RETURN 

22120 REM LA CHIAVE E' STATA TROVATA, STAMPO L'INFORMAZIONE ASSOCIATA 
22130 PRINT "BNNFORMAZIONE ASSOCIATA:" 

22140 PRINT "-« 

22150 PRINT ")r;RIGHT$(TA*(PO>,LEN<TA$<PO))-10) 

22160 GOSUB 5000:REM ATTENDO RETURN 
22170 RETURN 

22990 REM ROUTINE • SALVA LA TRBELLA SU DISCO 

23000 print -y ; tab< 10 >i *i i %r *, 

23010 PRINT "(O/OME DEL FILE ? 

23020 ZL=I0:GOSUB 60000 PRINT 

23030 IF IN4="“ THEN RETURN 

23031 REM APRO IL FILE COMANDI 

23032 OPEN 15,8,15 

23040 REM APRO IL FILE IN MODO SOVRAPPOSIZIONE 

23050 OPEN 4,8,4,"80:“+IN4+“,S,W" 

23051 REM CONTROLLO ERRORI 

23052 INPIJT#15,E,E4,T,S 

23053 IF E<20 THEN GOTO 23070 

23054 REM AVVISO ERRORE 

23055 PRINT "WBTTENZIONE, ERRORE DEL DISCO" 

23056 PRINT "/UMERO :",E 

23057 PRINT "-OBICE :",E$ 

23058 PRINT "IRACCIA :"iT 

23059 PRINT "RETTORE :";S 

23060 GOSUB 5000:REM ATTENDO RETURN 

23061 CLOSE 4 

23062 PRINT#I5,"I" 

23063 CLOSE 15 

23064 GOTO 23000 

23069 REM MEMORIZZO SUL FILE IN* 

23070 FOR 1=0 TO DT 

23080 IF <LEFT4<TA4<I>,10)=SV4> OR <LEFT4<TA4< I>,10>=VI4> THEN GOTO 23120 

23090 PRINT#4,STR4<I> 

23091 PRINT44, Tft4<I > 

23120 NEXT I 

23130 CLOSE 4 

23131 CLOSE 15 

23140 PRINT "ffliLfl TABELLA E' STATA MEMORIZZATA." 

23150 GOSUB 5000 REM ATTENDO RETURN 
23160 RETURN 

23490 REM ROUTINE : STAMPA TUTTA LA TABELLA 
23500 PRINT ".T;TAB<13);"#I4\T» I4IUL*" 

23510 FOR 1=0 TO DT 
23520 TM4=LEFT4<TB4<I),10) 

23530 IF TH4=SV4 OR TM4=VI4 THEN GOTO 23610 

23540 REM L'ELEMENTO I-ESIMO ESISTE, LO STAMPO 

23541 PRINT "H";TAB< 13), "*l 40» l*l~LL*" 

23550 POKE 214,10 PRINT 

23560 PRINT "-HIAVE : S"iTM4i"B" 

23570 PRINT "W,NFORMAZIONE ASSOCIATA " 

23530 PPINT "-“ 

23590 PRINT 'W, RIGHT4(TA4< I >, LEN(TA4< I ))-10) 

23600 GOSUB 5000 REM ATTENDO UN RETURN 
23610 NEXT I 
23620 RETURN 

24000 PPINT ”n", TAB< 13) i "-i/ - *"<**',r/TOMB" 

24010 PRINT "WKxUOI VERAMENTE TERMINARE ? CS/N1 ", 

24020 ZL=1 GOSUB 60000:PRINT 

24030 IF INf="S" THEN PRINT ":»M",CHR4<142) 

24035 IF IN4=“S" THEN POKE53280,14 PRINT".T!" END 
24040 RETURN 

29980 REM ROUTINE CALCOLA L'INDIRIZZO ASSOCIATO ALLA CHIAVE CH4 TRAMITE 

29990. REM L'USO DELLA FUNZIONE HASH NUMERO UNO 

30000 F'O=0 

30010 POR 1=1 IO IO 

30020 P0=P0+ASC(MID4<CH4,1,1 > M< <1-1>/3+l> 

30030 PO=PO-1 NT < PO/< DT+1> ) » ■: DT+1 ) 

30040 NEXT I 
30060 RETURN 

30980 REM ROUTINE CALCOLA L'INDIRIZZO ASSOCIATO ALLA CHIAVE CHI TRAMITE 

30990 REM L'USO DELLA FUNZIONE HASH NUMERO DUE 

31000 PO=0 

31010 FOR 1=1 TO 10 

31020 P0=P0+A5C<NID4<CH4,11-1,1)> +<<I-i>24+1) 

31030 PO=PO-INT<PO/<DTti»*<DT»1 > 

31040 NEXT I 
31060 RETURN 

31990 REM ROUTINE: CERCA LA CHIAVE CH4 IN TABELLA 
32000 TR=@ REM FLAG TROVATO = FALSO 

32010 REM CALCOLO L'INDIRIZZO TRAMITE LA PRIMA FUNZIONE HASH 
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che la chiave fornita non è 
presente nella tabella (linee 
21080, 21090), altrimenti si 
cancella l’elemento (linea 
21130) e si ripresenta il 
menù comandi. 

La routine 22000 ricerca e 
visualizza un elemento 
della tabella. Chiesta al 
solito la chiave (linea 
22020), il controllo è 
passato alla routine 32000, 
che gestisce l'individuazione 
dell'elemento associato alla 
chiave fornita. Se la ricerca 
ha buon esito si stampa 
l'informazione contenuta 
nella posizione individuata 
(linee 21130+21150), in caso 
contrario si informa 
l'utente che la chiave 
fornita non è presente nella 
tabella (linee 22080, 22090). 
La memorizzazione della 
tabella su disco è eseguita 
dalla routine 23000 che, 
chiesto il nome che si vuole 
assegnare alla tabella (linea 
23010), apre un file sul 
disco (anche se questo è già 
presente) specificando che 
vi si deve scrivere sopra 
(linea 23050). Si 
memorizzano quindi tutti 
gli elementi della tabella 
che contengono 
informazioni, per poi 
chiudere il file (linea 23130) 
e ripresentare il menù 
comandi. 

La routine 23500 visualizza 
l’intera tabella. Prima di 
stampare un elemento 
(linee 23560+ 23590) si 
controlla se contiene o no 
informazioni (linea 23530) 
per evitare di visualizzare 
gli elementi vuoti. 

La routine 24000, infine, 
termina la sessione di 
lavoro dopo aver chiesto se 
si ha veramente intenzione 
di finire di operare sulla 
tabella (linea 24010). Si 
permette così di riprendere 
l'esecuzione con la 
presentazione del menù 
comandi. 


32020 GOSUB 30000 

32030 IF LEFT*<TA*CPO>,10>=CH* THEN TR=i RETURN:REM CHIAVE TROVATA 
32040 IF LEFT*CTAKPO>,10>=SV:f THEN RETURN : REM CHIAVE NON TROVATA 
32050 REM CALCOLO L'INDIRIZZO CON LA SECONDA FUNZIONE HASH 
320E0 GOSUB 31000 

32070 IF LEFT*fTA#<PO),10>=CH* THEN TR=1 RETURN 
32080 IF LEFT*(TA*(PO>,I0>=SV* THEN RETURN 
32080 REM CERCO LA CHIAVE IH SEQUENZIALE 
32110 I=PO+l 

32120 IF I=DT+1 THEN 1=0 

32130 IF I=P0 THEN RETURN 

32140 IF LEFT$CTA*<I>,10)=SV$ THEN RETURN 

32150 IF LEFT*CTA*(I>,1@)=CH* THEN PO=i:TR=1 RETURN 

32160 1=1+1 GOTO 32120 

39990 REM ROUTINE RICHIEDE CHIAVE D'ACCESSO 
40000 PRINT "-HIAVE D'ACCESSO ? "J 

40010 ZL=IO GOSUB 60000 PRINT 

40011 CH*=IN* 

40020 IF CH*="" THEN RETURN 

40030 REM LA LUNGHEZZA DELLA CHIAVE DEVE ESSERE PARI A 10 CARATTERI 
40040 IF LENCCHSK10 THEN CH$=''51" +CH* : GOTO 40040 
40060 RETURN 

59920 REM ROUTINE-GESTISCE 1'INPUT DI UNA STRINGA ALFANUMERICA 

59840 REM IN INGRESSO VUOLE IL VALORE ZL CHE E" LA LUNGHEZZA MASSIMA DELLA 

59950 REM STRINGA DA LEGGERE 

59960 REM IN USCITA DA’ LA STRINGA LETTA IN IN* E LA SUA LUNGHEZZA IN Z9 

59980 REM CANCELLO LA ZONA DI SCHERMO IN CUI VERRÀ' DIGITATA LA STRINGA 

60000 FOR Z8=l TO ZL PRINT " ”,NEXT Z8 

60010 FOR Z8=i TO ZL: PRINT “ir; NEXT Z8 

60020 IN*="" : Z7=TI 

6004O REM LEGGO UN CARATTERE 

S0060 GET Z8$IF Z8$<>'"' THEN 60160 

60080 REM ACCENSIONE E SPEGNIMENTO DEL CURSORE 

60100 IF Z7<TI,AND NOT<Z6) THEN PRINT “Sii” ; :Z6«N0TCZ6):Z7-TI+15 

60110 IF Z7<TI AND Z6 THEN PRINT " II"; :Z6=N0TCZ6> : Z7=TI+15 

60120 GOTO 60060 

60Ì40 REM E- STATO DIGITATO UN CARATTERE 
60160 Z8=ASC(Z8*):Z9=LEN<INf) 

60180 REM SE NON E' >JN CARATTERE ALFANUMERICO, DEVE ESSERE UN RETURN 0 DELETE 
60200 IF NOT<Z8>31 AND Z8<96) THEN GOTO 60320 

60220 REM CONTROLLO CHE NON SIA STATA SUPERATA LA LUNGHEZZA MASSIMA 

60240 IF Z9=ZL THEN GOTO 60060 

60260 REM LO AGGIUNGO ALLA STRINGA INi 

60280 IN*=IN*»Z8*:PRINT 28$; GOTO 60060 

60300 REM SE E' UN RETURN, HO TERMINATO LA LETTURA 

60320 IF Z3=13 THEN PRINT " 11“, ■ RETUPN 

60340 REM SE E‘ DELETE, CANCELLO IN IN* E SUL VIDEO L ULTIMO CARATTERE DIGITATO 
60360 IF Z8=20 AND Z9>0 THEN IN*=LEFT*<IN*,Z9-1> :PRINT " Ili 11 , GOTO 60060 
60370 GOTO 60060 

60960 REM ROUTINE:INIZIALIZZAZIONE COSTANTI 

60930 REM CIRCUITO VIDEO 

61000 VI=53248 

61020 REM CIRCUITO SUONO 

61040 SI=54272 

61060 REM MEMORIA VIDEO 

61080 MV=1024 

6110O REM MEMORIA COLORE 

61120 HC=5529Ó 

61140 PEH COSTANTI DI USO COMUNE 
61i60 ZL=9 

61180 REM INIZIALIZZAZIONE CHIP SUONO 

61200 FOR 1=0 TO 24 

61210 POKE Si+1,0 

61220 NEXT I 

61230 RETUPN 

61980 RFM ROUTINE STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PO* 

6200Ò GOSUB 61000 
62010 POKE VI+32,15 
62020 POKE VI+33,15 
62030 PPINT MSWH". 

62040 PRINT TABC62, 11 r-V 

62050 FOR 1 = 1 TO 5 

62060 PRINT TAB<6>;“1 1= 

62070 NEXT I 

62080 PRINT TABC6), " 1 - J " 

6209O PRINT TABC6>,"iM<«N*WDIGITA SRETURN9 PER PROSEGUIRE" 

62100 PRINT "SfflBNS” 

62110 FOR 1=1 TO 5 
62120 PRINT TRBC7). 

62I3Ò FOR J=i TO 26 
62I40 PPINT “14ri ", 

62150 NEXT J 
62160 PRINT 
6217o NEXT I 

62190 REM ORA SCRIVO IL TITOLO 

62210 PRINT "»«•***«”,TftRC<«M»-LEN<PA*»/2> • “STIPO* 

62220 GET Z9* 

62230 IF 79iOCHR*<13< THEN GOTO 62220 
62240 PRINT "HT . 

62250 RETURN 
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Editor 

Questo progetto ha come scopo la realizzazione di un programma che 
permetta di comporre un testo qualsiasi ed eventualmente di memoriz¬ 
zarlo in un file («text file»). Si potrà, ad esempio, scrivere una lettera uti¬ 
lizzando il calcolatore in sostituzione della macchina per scrivere. Du¬ 
rante la composizione del testo il programma permetterà di scrivere ri¬ 
ghe, di effettuare inserzioni tra righe già scritte, di apportare modifiche, 
di cercare e/o sostituire una determinata parola, ecc. Si potranno così 
comprendere ed apprezzare le ampie possibilità di «word processing» 
(elaborazione della parola) proprie dei computer in contrasto con le li¬ 
mitazioni imposte nell'uso delle comuni macchine per scrivere. Inoltre, 
potendo memorizzare il testo su supporto magnetico, lo si avrà a dispo¬ 
sizione per successivi impieghi e/o modifiche. 


Un programma che permette di creare e manipolare testi in modo sem- 
Anaiisi del plice e di memorizzarli su supporto magnetico per poterli utilizzare suc- 

problema cessivamente è generalmente chiamato «editor». Esistono due famiglie 

di editor: gli editor orientati alla linea e quelli orientati alla pagina. Gli 
editor orientati alla linea manipolano il testo linea per linea, cioè lo con¬ 
siderano come una successione di linee. Prevedono infatti anche un co¬ 
mando che consente di definire una «linea corrente» cioè la linea su cui 
si possono svolgere operazioni. Il loro limite principale è che non è pos¬ 
sibile operare su una linea (correggere errori, cambiare caratteri, ecc.) 
se non richiamandola espressamente. Gli editor orientati alla pagina in¬ 
vece trattano il testo come una successione di gruppi di linee (pagine) 
e consentono di operare in un campo più vasto spostandosi sulle linee 
che compongono la pagina. Poiché la loro gestione è molto più comples¬ 
sa, il progetto che vogliamo realizzare è quello di un editor orientato al¬ 
la linea. Le operazioni che il programma dovrà essere in grado di esegui¬ 
re saranno le seguenti: 

■ inserimento delle linee del testo 

■ visualizzazione di una o più linee di testo 

■ spostamento della linea corrente verso la fine del testo 

■ spostamento della linea corrente verso l’inizio del testo 

■ individuazione di una parola o di un qualsiasi insieme di caratteri 
(stringa) specificato e visualizzazione della linea in cui si trova 

■ visualizzazione di un quadro contenente la spiegazione dei comandi 
a disposizione 

■ individuazione di una stringa nella linea corrente o nelle successive, 
e sua sostituzione con un’altra stringa 

■ selezione della linea corrente 

■ eliminazione di una o più linee di testo 

■ stampa del testo o di una sua parte su carta 

■ caricamento di un testo da supporto magnetico 

■ fine della sessione di lavoro con memorizzazione del testo su suppor¬ 
to magnetico 

■ fine della sessione di lavoro con distruzione del testo. 

Ai comandi che individuano queste operazioni saranno associati alcuni 
parametri; sarà previsto che il comando sia rappresentato da un carat¬ 
tere e che gli eventuali caratteri successivi individuino i parametri asso¬ 
ciati (cioè le modalità d'uso del comando). In particolare i comandi: «i» 
(insert: inserisce delle linee), «f» (find: cerca una stringa), «h» (help: vi¬ 
sualizza i comandi), «s» (substitute: sostituisce una stringa), «m» (move: 
carica un testo da disco), «e» (exit: termina la sessione di lavoro memo¬ 
rizzando il testo su disco) e «q» (quit: termina la sessione di lavoro di- 
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struggendo il testo) non avranno parametri associati, in quanto possono 
essere utilizzati in modo univoco. I comandi: «1» (list: visualizza una o 
più linee), «k» (kilt: elimina una o più linee) e «p» (print: stampa una o 
più linee) possono invece essere utilizzati associandovi alcuni parame¬ 
tri. Ad esempio, il comando «1» visualizza la linea corrente, «1- » visua¬ 
lizza tutte le linee a partire da quella corrente fino alla fine del testo, 
«14» visualizza la linea 4 anche se quella corrente è un’altra e «110 - 20» 
visualizza le linee dalla 10 a alla 20 a . Al comando «c» (change: seleziona 
la linea corrente) deve essere associato il numero della linea da selezio¬ 
nare e ai comandi «u» (up: sposta la linea corrente verso l’inizio del te¬ 
sto) e «d» (down: sposta la linea corrente verso la fine del testo) possono 
essere associati numeri che indicano di quante linee si vuole che sia ef¬ 
fettuato lo spostamento. Per individuare gli eventuali parametri associati 
ad un comando, dopo aver tolto i blanks presenti, sarà estratto, dalla strin¬ 
ga immessa dall’utente per chiedere l’esecuzione del comando, il primo 
carattere (che individua il comando), e saranno poi controllati i succes¬ 
sivi per vedere se si tratta di parametri. 

Generalmente la progettazione di un editor è in realtà più complessa; si 
possono infatti prevedere altre funzioni, quali lo spostamento di gruppi 
di linee all’interno del testo, la fusione di due o più testi tra di loro, ecc. 
Il testo è inoltre memorizzato su supporto magnetico non al termine del¬ 
la sessione di lavoro, come in questo caso, ma durante la sua composi¬ 
zione, per evitare che possa andare completamente perduto nell’eventua¬ 
lità, ad esempio, di un’improvvisa mancanza di corrente elettrica. 
Parleremo ora del problema che i lettori più attenti non avranno manca¬ 
to di rilevare nei programmi «Archivio» e «L’archivio veloce», che al pa¬ 
ri di «Editor» utilizzano estesamente il trasferimento di dati alfabetici 
al disco. 

11 trasferimento di una stringa di caratteri presenta qualche problema 
quando in essa sono presenti i caratteri «:» e «,», che il driver interpreta 
come comandi. In questo programma si è utilizzata una soluzione che 
prevede la transcodifica dei caratteri citati. Prima del trasferimento al 
driver i caratteri «:» e «,» sono sostituiti con altri «innocui» ([ e ]), che 
all’atto della lettura dal disco sono ritradotti nei caratteri effettivamen¬ 
te immessi dall'utente. È chiaro però che in questo modo non sarà più 
possibile utilizzare nel testo le parentesi quadre, che sarebbero comun¬ 
que tradotte nei caratteri «:» e «,». Un secondo problema riguarda inve¬ 
ce l’uso dei doppi apici. All’atto deH’immissionc di un doppio apice il 
CBM-64 entra in una modalità di funzionamento particolare, che cessa 
solo con l’immissione degli apici di chiusura. Se il programma stam¬ 
passe questo carattere senza ulteriori verifiche, le linee 60100 e 60110 
sarebbero interpretate nel seguito come istruzioni di stampa dei ca¬ 
ratteri grafici contenuti fra i doppi apici. Per evitare questo inconve¬ 
niente il programma stamperà i doppi apici per due volte consecu¬ 
tive nella stessa posizione, permettendo così l’immissione di questo ca¬ 
rattere nel testo. 
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Diagrammi 
di flusso 


Dopo aver inizializzato le 
costanti e stampato il titolo, 
si dimensiona il vettore 
ED$ in cui verranno 
collocate le righe del testo. 
La visualizzazione di un 
asterisco indica che il 
programma è in attesa di 
un comando. Dopo la 
lettura del comando 
digitato si entra in un ciclo 
di individuazione 
dell’azione che vi 
corrisponde. Se si intende 
scrivere delle linee di testo 
(comando «i»), inserendole 
di seguito alla linea 
corrente, sono innanzitutto 
aggiornati i contatori 
relativi alla riga corrente e 
alla prima riga vuota, 
quindi si accettano le 
nuove righe di scrittura 
inserendole nelle relative 
posizioni (rispetto al testo). 
Non appena si tenta di 
inserire una linea vuota il 
programma la ignora e 
ritorna ad attendere un 
comando uscendo dalla 
modalità di inserimento. 

Nel caso in cui si vogliano 
cancellare delle linee è 
necessario digitare il 
comando «k» seguito dai 
relativi numeri di riga. 

Per leggere il testo 
composto si deve digitare 
«/» specificando le righe da 
visualizzare, che saranno 
stampate sullo schermo. 

I blocchi che seguono 
verificano se si intende 
spostare la linea corrente 
in alto o in basso (comandi 
«u» e «d»); in entrambi i 
casi si aggiorna il relativo 
puntatore e si visualizza la 
nuova linea. 

È possibile stampare su 
carta il testo o una sua 
parte con il comando «p»; 


Inizializzazione 


START 


Z Stampa 

del titolo 
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il programma gestisce 
l'apertura e la chiusura dei 
canali di comunicazione 
con la stampante, e 
produce la stampa (su 
carta) delle righe 
desiderate. 

Per cambiare la linea 
corrente bisogna digitare 
«c» seguito dal nuovo 
numero di riga. 

Nel blocco successivo si 
effettua il test relativo al 
comando «m» (caricare un 
file da disco); se si tratta di 
questo comando il testo è 
prelevato da disco e 
memorizzato nel vettore 
ED$ (la prima linea del 
testo sarà quella corrente). 
Nel seguito si incontrano i 
test relativi alla ricerca e 
alla sostituzione di una 
stringa (comandi «/» e «s»J. 
In entrambi i casi si ricerca 
la stringa all'interno del 
testo; quando la si 
individua è visualizzata 
la linea che la contiene 
(ricerca) ed eventualmente 
la vecchia stringa è 
sostituita con la nuova 
(sostituzione). 

Il comando «h» richiede la 
visualizzazione del menù 
dei comandi, e in seguito 
è necessario digitare 
RETURN perché il 
programma torni ad 
attendere una nuova 
istruzione. 

Gli ultimi blocchi del 
diagramma verificano se si 
intende terminare la 
composizione del testo (e 
l'esecuzione). Il testo finale 
può essere memorizzato su 
disco prima di terminare 
l’esecuzione (comando «e») 
oppure si può concludere 
senza memorizzarlo e 
quindi perdendolo 
(comando «q»). 
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Il programma 


Il programma comincia 
con l’inizializzazione delle 
costanti del C-64 e con la 
presentazione del titolo 
(linee 110, 120). Alla linea 
140 è inizializzata la 
costante DW che serve a 
determinare le dimensioni 
del vettore ED$, il quale 
conterrà le linee del testo 
(linea 160). Sono poi 
impostati i caratteri in 
minuscolo (linea 280) ed è 
disabilitata la possibilità di 
cambiare questa 
impostazione (linea 290). Si 
determinano quindi i colori 
del video (linee 300, 310) e 
dei caratteri (linea 320), e si 
inizializzano le costanti LC 
e FT che individuano 
rispettivamente la linea 
corrente e la prima linea 
vuota (linee 340, 341). Con 
la linea 370 si visualizza il 
carattere « stella » per 
indicare che si possono 
utilizzare i comandi 
dell'editor, e con la linea 
380 è chiamata la routine 
60000 che gestisce 
l'immissione dei caratteri 
da tastiera. Si passa poi il 
controllo alla routine 41000, 
che toglie gli eventuali 
spazi bianchi immessi 
(linee 41010+41040) ed 
estrae il primo carattere 
della stringa mediante la 
funzione LEFT$ (linea 410). 
Le linee 420+ 540 effettuano 
la chiamata alla routine 
che gestisce il comando 
scelto. 

La routine 10000, che 
effettua l'inserimento delle 
linee del testo, passato il 
controllo alla routine 60000 
per gestire l'immissione dei 
caratteri che compongono 
la linea, verifica se è stato 
battuto il tasto RETURN 


0 REM ******** 

1 REM *EDITOR* 

2 REM ******** 

4 REM VARIABILI UTILIZZATE 


6 REM PG* 

7 REM I,J 

8 REM DW 

9 REM LC 

10 REM FT 

11 REM IN* 

12 REM CO* 

13 REM IN 

14 REM FI 

15 REM CI* 

16 REM TM* 

1? REM I* 

18 REM N 

19 REM E,E*,T,S 

20 REM FG 

21 REM BU* 

22 REM ED*(.) 


REM MEMORIZZA IL TITOLO DEL PROGRAMMA 
CONTATORI DI CICLO 
MASSIMO NUMERO DI RIGHE DEL TESTO 
NUMERO DELLA LINEA CORRENTE 
NUMERO DELLA PRIMA LINEA VUOTA 
INPUT DA TASTIERA 
COMANDO IMMESSO 

PRIMA LINEA DEL BLOCCO DA LISTARE OD ELIMINARE 
ULTIMA LINEA DEL BLOCCO DA LISTARE OD ELIMINARE 
VALORE TEMPORANEO 
SERVE NELLA COSTRUZIONE DI CI* 

STRINGA CORRISPONDENTE AL NUMERO DI LINEA DA STAMPARE 
INDICA DI QUANTE LINEE CI SI DEVE SPOSTARE 
CODICI DELL'ERRORE SU DISCO 
VARIABILE BOOLEANA 
VALORE TEMPORANEO 

VETTORE ALFANUMERICO CHE CONTIENE IL TESTO 
100 REM TITOLO ED INIZIALIZZAZIONE COSTANTI C64 
110 PG*="EDITOR" 

120 GOSUB 62000 

130 REM INIZIALIZZO VARIABILI 

140 DW-300 : REM MASSIMO NUMERO DI LINEE DELL'EDITOR 
150 REM INIZIALIZZO ARRAV 
160 DIM ED*(DW> 

162 PRINT "ir 

164 PRINT-SPC(S);"INIZIALMENTE L'EDITOR E'" 

166 PRINT SPC<5>;"»IN STATO COMANDI." 

168 PRINT SPCC5)/"JFER SCRIVERE UN TESTO" 

170 PRINT SPC<5>;"*E' NECESSARIO DIGITARE" 

172 PRINT SPC<5>1"»'I' SEGUITO DA SRETURNS. " 

174 PRINT SPCC5>;”MSI RITORNA IN STATO COMANDI" 

176 PRINT SPC<5>;"«DIGITANDO SRETURNS SU" 

178 PRINT SPC(5>;"MDNA LINEA VUOTA." 

180 PRINT SPC<5>;“)IPER LEGGERE IL MENU'" 

182 PRINT SPC<5>;"«DIGITARE 'H' IN STATO COMANDI." 

184 PRINT "«MBSRETURNS PER PROSEGUIRE" 

186 GET A* ; IF A*OCHR*U3> THEN 186 
188 PRINT":!" 

280 PRINT CHR*<14>:REM CARATTERI MINUSCOLI 

290 POKE 657.128 : REM DISABILITO IL CAMBIO DI CARATTERI 

300 POKE VI+32.6 : REM CORNICE BLU 

310 POKE VI+33.6-REM SFONDO BLU 

320 PRINT "8" : REM CARATTERI BIANCHI 

330 PRINT "r!" • REM CLEAR VIDEO 

340 LC=0 : REM LR LINEA CORRENTE E' LA ZERO 

341 FT=0:REM LA PRIMR LINEA NON SCRITTA E' LA ZERO 
350 REM INIZIA IL PROGRAMMA 

360 REM SONO IN MODO COMANDO 

370 PRINT "*";-REM PROMPT DEL MODO COMANDO 

380 ZL=70:GOSUB 60000:PRINT:REM LEGGO STRINGA DI COMANDO 

390 REM PROCESSO LA STRINGA DI COMANDO 

391 GOSUB 41000 REM TOLGO GLI SPAZI BIANCHI IN IN* 

400 IF IN*="" THEN GOTO 370 

410 CO*=LEFT*<IN*,l> 

THEN GOSUB 10000 

THEN GOSUB 11000 

THEN GOSUB 12000 

THEN GOSUB 13000 

THEN GOSUB 14000 

THEN GOSUB 15000 

THEN GOSUB 16000 

THEN GOSUB 17000 

"C" THEN GOSUB 18000 

510 IF COS="M" THEN GOSUB 19000 

520 IF CO*="F" THEN GOSUB 20000 

530 IF C0*="S" THEN GOSUB 21000 

"H" THEN GOSUB 22000 


420 IF CO*="I" 
430 IF CO*="K“ 
440 IF CO*="L" 
450 IF C0*="Q" 
460 IF CO*="E" 
470 IF CO*="U" 
480 IF C0*="D" 
490 IF C0*="P" 
500 IF CO*= 


GOTO 370:REM INSERT 

GOTO 370:REM CANCELLA LINEE 

GOTO 370:REM LISTA 

GOTO 370:REM QUIT 

GOTO 370:REM EXIT 

GOTO 370:REM jn ALTO DI N LINEE 

GOTO 370:REM in BASSO DI N LINEE 

GOTO 370:REM LISTA SU STAMPANTE 

GOTO 370 : REM CAMBIA IL NUMERO DI LINEA CORRENTE 

GOTO 370 : REM LEGGE UN FILE DA DISCO 

GOTO 370:REM CERCA UNA STRINGA 

GOTO 370:REM SOSTITUISCE UNA STRINGA 

GOTO 370: REM HELP 


540 IF CO*= 

1000 GOTO370 

9990 REM ROUTINE GESTISCE L'INSERZIONE SENZA PROCESSARE ULTERIORMENTE IL COMANDO 
10000 print " ";lc;">“; 

10010 ZL=70 : GOSUB 60000 PRINT 

10020 REM SE LA STRINGA E' VUOTA TORNO AL MODO COMANDO 
10030 IF IN*=" B THEN RETURN 

10040 REM INSERISCO LA STRINGA SULLA LINEA LC, SPOSTANDO LE LINEE DA 

10050 REM LC A FT-1 DI UN POSTO VERSO IL BASSO 

10060 REM CONTROLLO CHE CI SIA POSTO PER UNA INSERZIONE 

10070 IF FTODW THEN GOTO 10140 

10090 REM NON C'E' SPAZIO PER UNA INSERZIONE 

10100 PRINT "ATTENZIONE, NON C'E' SPAZIO NELL'AREA" 

10110 PRINT "MSDI LAVORO. I ORNO AL MODO COMANDO." 

10120 RETURN 

10130 REM POSSO INSERIRE LA LINEA 

10140 IF FT=LC THEN GOTO 10180:REM L'AREA DI LAVORO E' VUOTA 
10150 FOR I=FT TO LC+1 STEP -1 
10160 ED*U>=ED*<I-1) 

10170 NEXT I 
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senza scrivere nulla; in tal 
caso il programma torna 
ad attendere un comando 
(linea 10030). Sempre 
all'interno di questa 
routine si controlla se 
l'area di memoria riservata 
è completamente 
piena (linea 10070) ed 
eventualmente si stampa 
un avvertimento (linee 
10100+10110); altrimenti si 
verifica se la linea corrente 
coincide con la prima linea 
libera (linea 10140). Se 
l’esito di quest’ultima 
verifica è negativo significa 
che si vuole effettuare un 
inserimento tra due linee di 
testo già scritte, ed è quindi 
necessario spostare tutte le 
linee successive di una 
posizione (linee 
10150+10170); viceversa la 
nuova linea deve essere 
collocata in coda al testo 
già scritto, e l’inserzione 
può essere effettuata 
direttamente (linea 10180). 
Sono quindi incrementate 
le variabili LC e FT prima 
di tornare ad attendere 
l’immissione di un’altra 
linea (linea 10220). 

La cancellazione di una o 
più linee di testo è gestita 
dalla routine 11000, che 
inizia passando il controllo 
alla routine 40000 per 
determinare quante e quali 
linee si devono eliminare. 

Se si è inserito il solo 
comando «k» sono poste 
uguali al numero della 
linea corrente le variabili 
IN e FI (prima e ultima 
linea su cui operare), per 
poter così eliminare questa 
sola linea. Se il comando 
«k » è seguito dal simbolo 
«—» sono eliminale le linee 
comprese tra quella 
corrente e l'ultima del 
testo. Se il comando è 
seguito da un numero si 
elimina la linea individuata 
da quel numero. Se infine 
il comando è seguito da 


10180 ED»<LC>=IN$ 

10180 FT=FT+1 
10200 LC=LC+1 

10210 REM LEGGO LA PROSSIMA LINEA 
10220 GOTO 10000 

10990 REM ROUTINE-EFFETTUA LA CANCELLA2I0NE DI LINEE DI EDITOR 

11000 GOSUB 40000 REM CALCOLO IL RANCE DELLE LINEE DA ELIMINARE 

11010 IF INC=FI THEN GOTO 11070 

11020 REM C'E' UN ERRORE NEL COMANDO 

11030 PRINT "(TTENZIONE, RANGE NON BEN DEFINITO" 

11040 REM TORNO AL NODO COMANDO 
11050 RETURN 

11060 REM CONTROLLO CHE I NUMERI SIANO CORRETTI 

11070 IF IN>DW OR FI>DU THEN GOTO 11030 

11071 IF INO-FT THEN RETURN : REM NON DEVO ELIMINARE LINEE 
11080 REM I NUMERI SONO CORRETTI, EFFETTUO L'ELIMINAZIONE 
11090 IF FI>=FT THEN FT-IN RETURN■'REM HO ELIMINATO LE LINEE 
11100 FOR I=FI+1 TO FT 

11110 ED$<IN+I-FI-1 >=ED$(I> 

11120 NEXT I 

11130 REM ORA METTO A POSTO LA NUOVA FINE TESTO 
11140 FT=FT-<FI-IN+1> 

11150 IF LOFT THEN LC=FT 

11160 RETURN:TORNO AL MODO COMANDO 

11990 REM ROUTINE LISTA IL CONTENUTO DELL'EDITOR 

12000 GOSUB 40000 REM LEGGO RANGE DA LISTARE 

12010 REM CONTROLLO LIMITI DEL RANGE 

12020 IF IN>=FT THEN RETURN:REM NON C'E' NIENTE DA LISTARE 

12030 IF FI>=FT THEN FI=FT-1 

12040 IF FI>=IN THEN GOTO 12090 

12050 REM AVVERTO DELL'ERRORE 

12060 PRINT "tTTENZIONE, RANGE NON BEN DEFINITO" 

12070 RETURN:REM TORNO AL MODO COMANDO 
12080 REM LISTO 
12090 FOR I=IN TO FI 
12100 I$=STR$(I> 

12110 REM lì DEVE ESSERE LUNGO 4 CIFRE 
12120 IF LEN< 1$><4 THEN I$=" " + I* GOTO 12120 
12130 PRINT I*;"> ";ed*<i> 

12140 NEXT I 

12150 REM HO TERMINATO 

12160 RETURN 

12990 REM ROUTINE ESEGUE IL COMANDO QUIT 
13000 PRINT "XUOI VERAMENTE TERMINARE’ CS/N] 

13010 ZL=l: GOSUB 60000 PRINT 
13020 IF IN*0"S" THEN RETURN 

13030 POKE 657,0 : REM ABILITO IL TASTO SHIFT/COMMODORE 
13048 PRINT "rat»" 

13050 PRINT CHR*<142>:REM CARATTERI MAIUSCOLI 
13052 POKE 53280,14 PRINT "TI":REM COLORI NORMALI 
13060 END 

13990 REM ROUTINE ESEGUE L'EXIT 

14000 PRINT "-AMMI IL NOME DEL FILE SU CUI" 

14010 PRINT "MEMORIZZARE L'EDITOR. " 

14020 PRINT "M/OME FILE ? 

14030 ZL=10:GOSUB 60000 PRINT 

14040 IF IN*="“ THEN RETURN : REM NON VUOLE TERMINARE 
14050 REM MEMORIZZO SU FILE 
14060 OPEN 4,3,4,"00:"+IN*+",S,H" 

14070 REM CONTROLLO SE CI SONO LINEE NELL'EDITOR 
14080 IF FT=0 THEN GOTO 14130 

14090 REM MEMORIZZO 

14091 LL=LEN<EB*<I>) 

14092 FOR 1=0 TO FT-l 

14093 LL=LEN(EDf(I)) 

14101 FOR J=i TO LL 

14102 JJ=J-1 

14103 LJ=LL-J 

14104 REM SOSTITUZIONE DI EVENTUALI CODICI DI CONTROLLO DRIVER 

14105 IF M1D$(ED*<I), J, 1)0”, "AND MIDF<EDt( O, J, 1 ><>" " THEN 14108 

14106 GOSUB 63010 
14108 NEXT J 

14110 PRINT#4,ED$a> 

14120 NEXT I 

14130 CLOSE 4 REM CHIUDO IL CANALE 
14140 REM ORA SALTO ALLA ROUTINE DI GUIT 
14150 GOSUB 13000 
14160 RETURN 

14990 REM ROUTINE-IN ALTO DI N LINEE 

15000 N=VALCRIGHTf(IN*,LEN(IN$)-l)): REM HO LETTO IL NUMERO CHE SEGUE LA U 
15010 REM SE IL NUMERO E' ZERO,VADO SU DI 1 SOLA LINEA 
15020 IF N=0 THEN N=1 

15030 REM DECREMENTO IL PUNTATORE ALLA LINEA CORRENTE 
15040 LC=LC*N 

15050 REM CONTROLLO CHE LC SIA >= 0 E <=FT 

15060 IF LCC0 THEN LC=0 

15061 IF LOFT THEN LC=FT 

15070 REM STAMPO LA LINEA USANDO UNA PARTE DELLA ROUTINE CHE LISTA LE LINEE 
15080 IN=LC 
15090 FI=LC 
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due numeri separati dal 
simbolo «—» si eliminano 
le linee comprese tra i due 
valori forniti. Il controllo 
toma poi alla linea 11010 
che verifica se sono stati 
immessi valori non corretti; 
in questa eventualità è 
visualizzato un messaggio 
di avvertimento (linea 
11030) prima di tornare ad 
attendere un comando 
(linea 11050). Si controlla 
poi se la prima linea da 
eliminare è effettivamente 
scritta (linea 11071) e si 
effettua la cancellazione 
(linee 11100+11120). Prima 
di tornare ad attendere un 
comando (linea 11160) si 
determina il nuovo valore 
di FT ed eventualmente 
quello di LC (linee 
11140+11150). 

La routine 12000, che 
visualizza una o più linee 
di testo, inizia chiamando 
la routine 40000 per poter 
determinare quante e quali 
linee devono essere 
visualizzate. Controlla poi 
se sono stati immessi valori 
non corretti (linee 
12040+12070) e stampa sul 
video le linee richieste 
(linee 12090+12140). 

La routine 13000 gestisce la 
fine della sessione di 
lavoro. Dopo aver chiesto 
se si ha veramente 
intenzione di terminare 
(linea 13000), questa routine 
riabilita il cambio dei 
caratteri (linea 13040) e li 
pone in maiuscolo prima di 
concludere l'esecuzione del 
programma. 

Se si sceglie di 
memorizzare su disco il 
testo prima di finire la 
sessione di lavoro, il 
programma chiama la 
routine 14000 che, chiesto il 
nome che si vuole dare al 
testo appena composto 
(linee 14000 + 14020), apre 
un file su disco (linea 
14060) e vi memorizza il 


15100 GOTO 12020 

15990 REM ROUTINE ; IN BASSO DI N LINEE 

16000 N=VRLCRIGHT*<IN*,LEN<IN*)-1>>REM HO LETTO IL NUMERO CHE SEGUE LA D 
16010 REM SE IL NUMERO E' ZERO,VADO GIU" DI 1 SOLA LINEA 
16020 IF N=0 THEN N=1 

16030 REM INCREMENTO IL PUNTATORE ALLA LILINEA CORRENTE 
16040 LC=LC+N 

16050 REM CONTROLLO CHE LC SIA <= FT E SIA >=0 

16060 IF LOFT THEN LC=FT 

16061 IF LC<0 THEN LC=0 

16070 REM STAMPO LA LINEA USANDO UNA PARTE DELLA ROUTINE CHE LISTA LE LINEE 
160S0 IN=LC 
16090 FI=LC 
16100 GOTO 12020 

16990 REM POUTINE LISTA SU STAMPANTE 
17000 OOSUB 40000 REM LEGGO RANGE DA LISTARE 
17010 REM CONTROLLO LIMITI DEL RANGE 

17020 IF IN>=FT THEN RETURN:REM NON C'E' NIENTE DA LISTARE 
17030 IF FI>=FT THEN FI=FT-1 
17040 IF FI>=IN THEN GOTO 17090 
17050 REM AVVERTO DELL'ERRORE 

17060 PRINT "tTTENZIONE, RANGE NON BEH DEFINITO" 

17070 RETURN 

17080 REM LISTO SU STAMPANTE 
17090 0PEN4,4,7 
17100 FOR I=IN TO FI 
17118 PRINT#4,ED*CI) 

17120 NEXT I 
17130 REM HO TERMINATO 
17140 CLOSE 4 
17150 RETURN 

17990 REM ROUTINE : CAMBIA IL NUMERO DI LINEA CORRENTE 
18000 LC=VRL<RIGHT*<IN*,LENCIN*>-1)> 

18010 REM CONTROLLO CHE NON FUORIESCA DAI LIMITI 

18020 IF LOFT THEN LC=FT 

18030 IF LC<0 THEN LC=0 

18040 REM HO TERMINATO 

18050 RETURN 

18990 REM ROUTINE:LEGGE UN FILE DA DISCO 
19000 PRINT "/OHE DEL FILE DI INGRESSO ? 

19010 ZL=10 : GOSUB 60000 PRINT 
19020 IF IN*="" THEN RETURN : REM NESSUN FILE 
19030 REM APRO IL CANALE DEI COMANDI 
19040 0PEN15,8,15 

19050 REM APRO IL CANALE PER IL FILE 
19060 OPEN 4,8,4,INS+",S,R" 

19070 REM LEGGO SE CI SONO ERRORI 
19080 INPUTK15, E, E$, T,S 
19090 IF E<20 THEN GOTO 19200 
19100 REM CI SONO ERRORI 

19110 PRINT "-RROPE NELL'APERTURA DEL FILE" 

19120 PRINT "AiMERO ",E 

19130 PRINT "“ODICE :";E* 

19140 PRINT "IRACCIA :";T 

19150 PRINT "RETTORE :“;S 

19160 REM RIINIZIALIZZO IL DISCO 

19170 PRINT415,"I" 

19171 CLOSE 4■CLOSE 15 

19180 GOTO 19000 REM RICHIEDO IL NOME DEL FILE 
19190 REM NON CI SONO ERRORI, LEGGO IL FILE 
19200 FT=0 

19210 INPUT#4,EB*<FT> 

1921! LL=LEN<ED*<FT>> 

19212 FOR J=1 TO LL 

19213 JJ=J-1 LJ*LL-J 

19215 IF MIDÌCEDfCFT), J, 1)0"]“HND MID*<ED*(FT>,J, l)0“t“ THEN 19218 

19216 REM RICONVERSIONE EVENTUALI CARATTERI SOSTITUITI 

19217 GOSUB 63060 

19218 NEXT J 

19220 IF STO0 THEN CLOSE 4 CLOSE 15 FT=FT+1 RETURN REM HO LETTO IL FILE 
19230 FT=FT+1 
19240 GOTO 19210 

19990 REM ROUTINE:CERCA UNA STRINGA DALLA POSIZIONE LC ALLA FINE DEL TESTO 
20000 PRINT "WTRINGA DA CERCARE ? - i 
20010 ZL=70:GOSUB 60000 PRINT 

20020 IF IN*'"" THEN RETURN:REM TORNO SENZA CERCARE 
20120 GOSUB 42000 : REM CERCO LA STRINGA IN ED*, RISULTATO IN FG 
20130 IF FG=1 THEN GOTO 20170 
20140 PRINT "K3*TRINGA NON TROVATA" 

20150 RETURN 

20160 REM STRINGA TROVATA : STAMPO LA LINEA CHE LA CONTIENE 
20170 IN=I 
20180 FI=I 

20190 REM SALTO ALL'INTERNO DELLA ROUTINE CHE LISTA 
20200 GOTO 12020 

20210 REM LA ROUTINE E' TERMINATA 

20990 REM ROUTINE SOSTITUISCE UNA STRINGA CON UN'ALTRA 
21000 PRINT "K*£CCHIA STRINGA ? 

21010 ZL=70 : GOSUB 60000 PRINT 
21020 IF IN*=" " THEN RETURN 
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testo (linee 14100 + 14130) 
per poi chiamare la routine 
13000. 

Il comando «u» è gestito 
dalla routine 15000 che, 
letto il numero che segue il 
comando (linea 15000), 
assume come nuova linea 
corrente quella che precede 
la linea attuale di un 
numero di righe pari a 
quello indicato. È poi 
decrementata la variabile 
LC in base al numero 
inserito con il comando 
(linea 15040); si controlla 
che il nuovo valore di LC 
non individui una linea al 
di fuori del testo (linee 
15060, 15061) e si visualizza 
la nuova linea corrente 
utilizzando parte della 
routine 12000. 

Il comando «d» è gestito 
dalla routine 16000, che 
effettua gli stessi passi 
della 15000, con la sola 
differenza che il valore di 
LC è incrementato (linea 
16040) anziché 
decrementato, in quanto si 
deve spostare la linea 
corrente di una o più 
posizioni verso la fine del 
testo (anziché verso 
l'inizio). 

La routine 17000, che 
permette di stampare una o 
più linee di testo su carta, 
ha la medesima struttura 
della 12000. Le uniche 
istruzioni diverse sono 
ovviamente quelle che 
aprono e chiudono i canali 
di comunicazione con le 
periferiche (la stampante 
invece del disco). Per 
cambiare la linea corrente 
la routine 18000 deve solo 
controllare che il numero 
di linea fornito insieme al 
comando «c» non sia al di 
fuori del testo e determinare 
il nuovo valore di LC in 
base al numero introdotto. 
La routine 19000, che carica 
un file da disco, chiede il 
nome del file, apre il canale 


21030 

21040 

21050 

21060 

21070 

21080 

21081 

21090 

21100 

21110 

21120 

21130 

21140 

21150 

21160 

21170 

21180 

21190 

21200 

21210 

21220 

21230 

21240 

21250 

21990 

22000 

22010 

22020 

22030 

22040 

22050 

22060 

22070 

22080 

22090 

22100 

22110 

22120 

22130 

22140 

22150 

22160 

22170 

22180 

22190 

39980 

39990 

40000 

40010 

40020 

40030 

40040 

40R5R 

40060 

40070 

40080 

40090 

40100 

40110 

40120 

40121 
40130 
40140 
40150 
40160 
40170 
40180 
40190 
40200 
40210 
40220 
40230 
40240 
40250 
40260 
40990 
41000 
41010 
41020 
41030 
41040 
41050 
41060 
41980 
41990 
42000 
42010 
42020 
42030 
42040 


REM Lfi CERCO 
GOSUB 42000 

IF FO=0 THEN PRINT "AM ESISTE" : RETURN 
REM E' STATA TROVATA, LA BEVO SOSTITUIRE 
BU*=IN* 

PRINT "WIROVATA" 

PRINT STR*(I);"> ";ed*<i> 

PRINT "RIAJOVA STRINGA ? 

ZL=70:GOSUB 60000 : PRINT 
REM SOSTITUISCO 

REM CONTROLLO CHE LA LUNGHEZZA TOTALE DELLA NUOVA STRINGA 
REM NON SUPERI I 255 CARATTERI 

IF LENCED*<I>>-LEN<BU*>+LEN<IN*X=255 THEN GOTO 21200 
REM NON POSSO EFFETTUARE L'INSERZIONE 
PRINT ''COSTITUZIONE IMPOSSIBILE." 

PRINT ''CTRINGR TROPPO LUNGA." 

RETURN 

REM EFFETTUO LA SOSTITUZIONE 

ED*<I)=LEFT*(ED*<I),J-l)+IN*+RIGHT*(ED*<I),LEN(ED*(I))-LEN<BU*)-J+1) 

REM STAMPO LA NUOVA LINEA 

IN=I 

FI = I 

REM VADO NELLA ROUTINE LIST 
GOTO 12020 

REM ROUTINE VISUALIZZA LA MASCHERA DI HELP 
PRINT "D";TABI10);"-OHRNDI DELL'EDITOR" 

PRINT ; PRINT 

PRINT "I ";TAB< 10); "-INSERISCE UN TESTO" 

PRINT "K'";TAB<10);"-ANCELLA LINEE DI TESTO" 

PRINT "L • " ; TAB< 10) ; “LISTA IL TESTO" 

PRINT "Q : ";TAB(10) i " I ERMINA LA SESSIONE" 

PRINT "E:";TAB<10);"I ERMINA E SALVA IL TESTO" 

PRINT "U : ";TAB<10>;">fl VERSO L'ALTO"' 

PRINT "D :11 ; TABI 10) J"Bfì VERSO IL BASSO" 

PRINT "P";TAB<10)i"LISTA SU STAMPANTE" 

PRINT "C:";TABa0); ""AMBIA LA LINEA CORRENTE" 

PRINT "M : "; TABI10);"“ARICA UH TESTO DA DISCO" 

PRINT "F:";TABd0);"-ERCA UNA STRINGA" 

PRINT "S■";TAB<10);“COSTITUISCE UNA STRINGA" 

PRINT "H•"; TABI 10);"XlSUALIZZA QUESTA MASCHERA" 

POKE 214,20'PRINT 

PRINT "3-~l ,-y* PER PROSEGUIRE" 

GET IN*:IF IN*OCHR*(13> THEN GOTO 22170 
PRINT "3"; 

RETURN 

REM ROUTINE ELEGGE LA PARTE DESTRA DELLA STRINGA DI COMANDO CHE CONTIENE 

REM IL RANCE DELLE LINEE DA PROCESSARE 

IN*=RIGHT*<IN*,LEN<IN*>-1> 

IF IN*='"' THEN IN=LC : FI=LC : RETURN : REM PUNTO LA LINEA CORRENTE 
REM PROCESSO IN* PER VEDERE IL RANCE DELLE LINEE 
REM C'E' LA PRIMA CIFRA? 

CI*="" 

1=1 

TM*=MID*<IN*, 1,1) 

IF NOT(TM*>="0" AND TM*<="9") THEN GOTO 40110 
CI*=CI*+TM* 

1=1*1■IF I<=LEN<IN*> THEN GOTO 40060 

REM IN CI* HO UNA CIFRA OPPURE HO IL CARATTERE NULL(ZERO) 

IN=VALCCI*> 

REM ORA CONTROLLO SE C'E' LA SECONDA CIFRA 

IF I>LEN(IN*) THEN FI = IN : RETURN : REM C'E' SOLO UNA CIFRA SENZA SEPARATORE 
IN*=RIGHT*aN*, LENC IN*)-I ) 

PEM HO TOLTO LA PRIMA CIFRA E L'EVENTUALE SEPARATORE 
IF IN*="" THEN FI=FT-1: RETURN:REM MANCA LA SECONDA CIFRA 
REM LEGGO LA SECONDA CIFRA 
CI**"" 

1=1 

TM*=MIB*(IN*,I,1> 

IF NOT<TM*>="0" AND TM*<="9") THEN GOTO 40240 
CI*=CI*+TM* 

1=1+1 IF I<=LEN(IN*> THEN GOTO 40190 
REM HO LETTO LA SECONDA CIFRA 
FI=VAL(CI*> 

REM ORA HO LE DUE CIFRE IN IN E FI, TERMINA LA PROCEDURA 
RETURN 

REM ROUTINE TOGLIE GLI SPAZI BIANCHI NELLA STRINGA IN* 

1 = 1 

IF MIB*<IN*, 1,1)0" “ THEN GOTO 41040 
IM*=LEFT*<IN*,1-1)+RIGHT*<IN*,LEN<IN*>-I) 

GOTO 41010 

1=1+1 IF I<=LEN(IN*) THEN GOTO 41010 

REM HO TOLTO GLI SPAZI BIANCHI NELLA STRINGA DI COMANDO 

RETURN 

REM ROUTINE:CERCA LA STRINGA IN* NELL'ARRAV ED* E PONE LA VARIABILE 
REM FG A ZERO OD A UNO A SECONDA DEL RISULTATO DELLA RICERCA 
FG=0 

IF LC=FT THEN RETURN 
REM INIZIA LA RICERCA 
I=LC 

BU*=ED*<I) 


184 






di comando (linea 19040) e 
quello del file (linea 19060), 
controlla se si sono verificati 
errori (linea 19080) ed 
eventualmente visualizza il 
codice dell'errore (linee 
19090+19180). Se non si 
sono verificati errori carica 
il file e chiude i canali 
aperti in precedenza. 

La routine 20000 cerca una 
stringa di caratteri nel testo 
a partire dalla linea 
corrente fino alla prima 
linea vuota. Questa routine 
inizia chiedendo quale 
stringa si vuole cercare; se 
non è specificata alcuna 
strìnga ma si digita solo il 
tasto RETURN il programma 
si pone di nuovo in attesa di 
un comando (linea 12020). 

Il controllo passa poi alla 
routine 42000, che cerca la 
strìnga confrontandola con 
i caratteri contenuti in 
tutte le linee del testo 
interessate, e pone ad uno 
la variabile booleana FG se 
trova la stringa specificata. 
Se la stringa non è stata 
trovata è visualizzato un 
messaggio di avvertimento 
(linea 20140), altrimenti si 
stampa la linea che la contiene 
utilizzando parte della 
routine 12000 (linea 20200). 
La sostituzione di una 
stringa con un'altra è 
gestita dalla routine 21000 
che, chiesta la strìnga da 
sostituire, si avvale della 
routine 42000 per trovarla 
(linea 21040). Se la stringa 
è individuata si 
chiede di digitare la nuova 
stringa (linea 21090) e, dopo 
aver controllato che la 
linea così composta non 
superi la lunghezza di 255 
caratteri (linea 21140), si 
effettua la sostituzione 
(linea 21200) e si visualizza 
la nuova linea (linea 21250). 
La routine 22000, infine, 
visualizza la spiegazione 
dei comandi disponibili 
(linee 22020+22150). 


42050 GOSUB 43000 : REM CERCO Lfl STRINGA IN* IN BU*: RISULTATO IN FG 
42060 IF FG=I THEN RETURN 
42070 1=1+1 

420S0 IF KFT THEN GOTO 42040 
42090 REM LA RICERCA E' TERMINATA 
42100 RETURN 

429S0 REM ROUTINE CERCA LA STRINGA IN* NELLA STRINGA BU* E PONE LA S'ARI AB ILE 
42990 REM FG A ZERO OD A UNO A SECONDA DEL RISULTATO DELLA RICERCA 
43000 FG=0 

43010 IF LEN(INf > >LEN < BU* > THEN RETURN ; REM NON PUÒ' ESSERCI 
43020 J=1 

43030 IF IN*=NID*<BU*,J,LEN<IN*>> THEN FG=1 ; RETURN 
43040 J=J+1 

43050 IF J<=LEN(BU*S-LENaN*>+l THEN GOTO 43030 
43060 RETURN : REM NON TROVATA 

59920 PEM ROUTINE GESTISCE L'INPUT DI UNA STRINGA ALFANUMERICA 
59930 REM LE VARIABILI UTILIZZATE S0N0:Z6,Z7,Z8,Z9,Z8»,IN* 

59940 REM IN INGRESSO VUOLE IL VALORE ZL CHE E' LA LUNGHEZZA MASSIMA DELLA 
59950 REM STRINGA DA LEGGERE 

59960 REM IN USCITA DA LA STRINGA LETTA IN IN* E LA SUA LUNGHEZZA IN Z9 

59980 REM CANCELLO LA ZONA DI SCHERMO IN CUI VERRÀ' DIGITATA LA STRINGA 

60000 IN*="" : Z7=TI 

60040 REM LEGGO UN CARATTERE 

60060 GET Z8* : IF Z8*<>"" THEN 60160 

60080 REM ACCENSIONE E SPEGNIMENTO DEL CURSORE 

60100 IF Z7CTI AND N0T<Z6> THEN PRINT "W, :Z6=N0T<Z6>:Z7=TI+15 

60110 IF Z7CTI AND Z6 THEN PRINT " 11"; :Z6=N0T<Z6):Z7=TI+15 

60120 GOTO 60060 

60140 REM E' STATO DIGITATO UN CARATTERE 
60160 Z8=ASC(Z8* > : Z9=LEN(IN*) 

60165 IF Z8=34 THEN PRINT Z8*,CHR*<20>; 

60180 REM SE NON E' UN CARATTERE ALFANUMERICO, DEVE ESSERE UN RETURN 0 DELETE 
60200 IF N0T<<Z8>31 AND Z8<96> OR <Z8>192 AND Z8<?19>> THEN GOTO 60320 
60220 REM CONTROLLO CHE NON SIA STATA SUPERATA LA LUNGHEZZA MASSIMA 
60240 IF Z9=ZL THEN GOTO 60060 
60260 REM LO AGGIUNGO ALLA STRINGA IN* 

60280 IN*=IN*+Z8*:PRINT Z8*, : GOTO 60060 

60300 REM SE E' UN RETURN, HO TERMINATO LA LETTURA 

60320 IF Z8=13 THEN PRINT « ll";:RETURN 

60340 REM SE E' DELETE, CANCELLO IN IN* E SUL VIDEO L' ULTIMO CARATTERE DIGITATO 
60360 IF'Z8=20 AND Z9>0 THEN IN*=LEFT*<IN»,Z9-1> : PRINT " «I"; GOTO 60060 
60370 GOTO 60060 

60960 REM ROUTINE:INIZIALIZZAZIONE COSTANTI 

60980 REM CIRCUITO VIDEO 

61000 VI=53248 

61020 REM CIRCUITO SUONO 

61040 SI=54272 

61060 REM MEMORIA VIDEO 

61080 MV=1024 

61100 REM MEMORIA COLORE 

61120 MC=55296 

61140 REM COSTANTI DI USO COMUNE 
61160 ZL=9 

61180 REM INIZIALIZZAZIONE CHIP SUONO 

61200 FOR 1=0 TO 24 

61210 POKE SI+1,0 

61220 NEXT I 

£1230 RETURN 

61980 REM ROUTINE:STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PG* 

62000 GOSUB 61000 
62010 POKE VI+32,15 
62020 POKE VI+33,15 

62030 print "nrosrar; 

62040 PRINT TAB<6>;"r--T 

62050 FOR 1 = 1 TO 5 

62060 PRINT THB<6>;“I I" 

62070 NEXT I 

62080 PRINT TAB<6)> ” - - - 

62090 PRINT TAB<6>, " WKMWWDIGITA SRETURNS PER PROSEGUIRE" 

62180 PRINT "SKSWKM" 

62110 FOR 1=1 TO 5 
62120 PRINT TAB<7>; 

62130 FOR J=1 TO 26 

62140 print "sìa 

62150 NEXT J 
62160 PRINT 
62170 NEXT I 

62190 REM ORA SCRIVO IL TITOLO 

62210 PRINT "HUCTUnUOT", TAB«40-LEN<PG*) V2> ; * StT ; PG* 

62220 GET Z9* 

62230 IF Z9*OCHR*<13> THEN GOTO 62220 
62240 PRINT 
62250 RETURN 

63000 REM ROUTINE SOSTITUZIONE DI EVENTUALI CODICI DI CONTROLLO DRIVER 
63010 IF MID*<ED*<i;i,J,l> = ' , ,"THEN EE*=LEFT*<ED*(I),JJ) + "]"+RIGHT*>:ED*CI),LJ> 
63020 IF MID*(ED*(I),J,1>=" : "THEN EE*=LEFT*<EP*(I)»JJ)+"C"+RIGHT*<ED*(I>,LJ) 
63030 ED*<I)=EE*:RETURN 

63050 REM ROUTINE: RICONVERSIONE EVENTUALI CARATTERI SOSTITUITI 
63060 IF MID*(ED*<FT>,J,1)="3"THEN EE*=LEFT*<ED*CFT),JJ)+“."+RIGHT*<ED*(FT>,LJ> 
63070 IF MID*CED*<FT) , J, 1 )="C"THEN EE*=I.EFT*(ED*(FT>, JJ1+" : "+RIGHT*(ED*(FT),LJ> 
63080 ED*<FT)=EE*:RETURN 
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Le otto regine 

Con questo programma presenteremo un solitario che richiederà rifles¬ 
sione ed applicazione. Il gioco consiste nel posizionare otto regine su una 
scacchiera in modo tale che nessuna di esse sia minacciata da un’altra. 
Chiunque conosca il gioco degli scacchi sa che la regina si può muovere 
in orizzontale, in verticale e in diagonale: poiché una scacchiera è com¬ 
posta da 8 X 8 = 64 caselle potrebbe sembrare impossibile posizionare tutte 
le otto regine in modo che non ve ne siano due sotto scacco reciproco. 
In realtà esistono circa settanta soluzioni diverse al problema (senza con¬ 
tare le simmetrie e le rotazioni), ma il giocatore si accorgerà che non è 
poi così facile trovarne una. 


Analisi del 
problema 




Per realizzare questo gioco si utilizzeranno tutti gli otto sprites dispo¬ 
nibili nel CBM-64 per rappresentare le regine. Sarà così presentato un 
esempio di come si possa gestire il movimento di uno sprite sullo scher¬ 
mo, entrando nella problematica dell’animazione delle immagini. In 
questo caso lo sprite sarà semplicemente spostato sullo schermo, ma 
il lettore potrà divertirsi nel provare ad ottenere un’animazione più 
sofisticata definendo più sprites da sostituire l'uno con l’altro in rapida 
successione. 

Il programma dovrà presentare sul video una scacchiera di 8 colonne per 
8 righe e, al suo fianco, gli otto sprites che raffigurano le regine e la de¬ 
scrizione dei comandi disponibili. Il giocatore potrà selezionare la regi¬ 
na che desidera posizionare sulla scacchiera, muoverla in orizzontale e 
verticale, riportarla al di fuori della scacchiera e, decisa la casella dove 
la vuole mettere, immobilizzarla per selezionare poi un'altra regina. Non 
sarà però possibile scegliere una nuova regina fino a che non si è posi¬ 
zionata quella in gioco su una casella che non sia sotto lo scacco di una 
regina già inserita. Sarà invece possibile scegliere una regina già posi¬ 
zionata e spostarla in un’altra casella della scacchiera o ricondurla alla 
posizione di partenza. 

Per rappresentare la scacchiera sarà utilizzata la possibilità di inserire 
i tasti funzione nelle istruzioni PRINT dei programmi. 

Le regine, invece, saranno raffigurate, come detto, mediante gli sprites; 
questi hanno l’utile caratteristica di potersi sovrapporre a qualunque ca¬ 
rattere già esistente muovendosi sul video senza interferire con quanto 
vi è contenuto. Dopo aver letto il disegno dello sprite dalle istruzioni DA¬ 
TA, il programma dovrà comunicare, con istruzioni POKE, alla scheda 
d’interfaccia video (che traduce i segnali del computer in segnali che pro¬ 
ducono un'immagine sul televisore) le coordinate del punto dove posi¬ 
zionare lo sprite. Per muovere la regina sarà poi sufficiente fornire la 
nuova posizione sempre con istruzioni POKE. 

Dopo che il giocatore avrà scelto la casella in cui posizionare la regina, 
il programma dovrà controllare se questa casella si trova sotto scacco. 
Per controllare uno scacco orizzontale o verticale basterà verificare se 
esiste un’altra regina che ha la stessa coordinata Y o X di quella che si 
vuole posizionare (la coordinata Y corrisponde al numero di riga men¬ 
tre la coordinata X corrisponde al numero di colonna). Per verificare in¬ 
vece un eventuale scacco diagonale il programma dovrà effettuare le se¬ 
guenti operazioni: sottrarre la coordinata X di un’altra regina a quella 
della regina da posizionare, sottrarre la coordinata Y dell’altra regina 
a quella da posizionare, ricavare i valori assoluti dei risultati di queste 
due sottrazioni e verificare se sono uguali tra di loro; se i due valori as¬ 
soluti coincidono allora le due regine si trovano sulla stessa diagonale 
e si è quindi verificato uno scacco. 
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Diagrammi 
di flusso 


II programma inizia 
controllando che la sua 
locazione di base sia stata 
spostata. Quindi si passa 
alla lettura dei DATA che 
definiscono gli sprites. 

Il passo successivo è la 
visualizzazione della 
scacchiera, delle otto regine 
e dei comandi permessi. 
Quindi il programma legge 
il comando digitato. 

Nel seguito si esamina se 
il comando impostato 
riguarda la ricollocazione 
di una regina al suo posto 
di partenza. Questo 
comando è poi eseguito 
senza ulteriori verifiche. 

Se viceversa il giocatore 
intende muovere una 
regina, il comando (e le 
operazioni che ne 
conseguono) è eseguito 
solo se l’eventuale 
regina mossa 
precedentemente è stata 
fermata. 

Nel blocco successivo il 
programma controlla se il 
giocatore intende fermare 
la regina e, in caso 
positivo, verifica se la 
posizione in cui la vuole 
fermare è minacciata. 
Qualora si abbia una 
collisione (posizione 
sotto scacco) il 
programma non accetta 
il fermo e richiede un 
ulteriore spostamento. 

Nel test successivo si 
verifica se tutte le regine 
sono state collocate sulla 
scacchiera. In caso positivo 
il giocatore ha finito il 
solitario, e appare un 
messaggio di 

congratulazioni; viceversa il 
programma torna ad 
accettare un nuovo 
comando. 


START 

< 11 programma NO J "'Vk 

atS /■y /■*{ END ) 

SI 4, 

/ Lettura 
DATA per 
gli sprites 

4< _ 

Z Visualizza 

scacchiera, 
menù e sprites 


/ Lettura 
comando 

< Riportare la SI 
regina fuori /“T 

della scacchiera? 


o 


o 

t 


Riporta la 
regina a fianco 


( 


NO 

Muovere 
una regina? 


- 


C'è già 
una regina 
in gioco? 


NO 


\™r Lettura 
numero 
della regina 


SI 


/ Messaggio di f \ 

avvertimento 1 


( Fermare \NC^_^v^N 

la regina? 1 


c 

( 


si ^ 


E minacciata? 


NO 

Posizionate 
tutte le otto 
regine? 


Acquisizione ed 
esecuzione di 
uno spostamento 


si / 7 

\ A/ Messaggio di / v 
avvertimento 

4 

^>-—>0 / "sar / 


si ' 4 - | 

/ Messaggio di 1 

congratulazioni END 
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Il programma 


Dopo la presentazione del 
titolo e l'inizializzazione 
delle costanti del C-64, 
si comunica all'utente che è 
necessario spostare la base 
del programma prima del 
caricamento in memoria 
(linee 170+280). 

Questa operazione è 
necessaria per rendere 
disponibile un’area in cui 
memorizzare le figure delle 
otto regine leggendo il loro 
disegno dalle istruzioni 
DATA (linee 310+ 340). Sono 
poi inizializzati gli otto 
sprites raffiguranti le 
regine (linee 360 + 430), è 
assegnato un diverso colore 
per ciascuno di essi (linee 
440, 450) e sono 
determinati i puntatori che 
serviranno ad inviduarli 
(linee 462 +464). Alle linee 
510+580 si trova il doppio 
ciclo che permette la 
visualizzazione della 
scacchiera; le caselle sono 
stampate alternativamente 
in nero e bianco, 
utilizzando le funzioni che 
selezionano questi due 
colori e gli indici dei cicli; 
in questo modo dopo una 
casella nera se ne trova 
una bianca, poi un'altra 
nera, ecc. Si dimensiona 
poi il vettore SP, che 
conterrà le due coordinate 
(espresse in punti video) di 
ciascuna delle otto regine 
(linea 610), e sono 
inizializzate le posizioni di 
partenza degli sprites (linee 
630+ 700). La linea 712 
chiama la routine 9000, che 
posiziona gli sprites 
utilizzando le coordinate 
memorizzate nel vettore 
SP; la linea 770 accende 
quindi gli sprites. 

È poi visualizzata la 


e REM **************** 

1 REM *LE OTTO REGINE* 

2 REM **************** 

4 REM VARIABILI UTILIZZATE 

6 REM PG* : TITOLO BEL PROGRAMMA 

7 REM I,J : CONTATORI DI CICLO 

8 REM A : CONTIENE IL CODICE DEL TASTO DIGITATO 

9 REM QU* ; SE STAMPATO, DISEGNA UN QUADRATO 3*3 

10 REM CO* : COLORE DEL QUADRATO DA DISEGNARE 

11 REM R : NUMERO DELLA REGINA CHE SI STA MUOVENDO 

12 REM FI : FLAG, SE 1 INDICA LA FINE DELLA FASE DI SPOSTAMENTO REGINA 

13 REM CO : FLAG, SE 1 INDICA CHE CD SONO COLLISIONI SULLA SCACCHIERA 

14 REM IN* : CONTIENE LA STRINGA DIGITATA 

15 REM X,Y ^COORDINATE FISICHE DELLA REGINA R-ESIMA 

16 REM XI,VI : COORDINATE FISICHE DI TUTTE LE ALTRE REGINE, UNA PER VOLTA 

17 REM SP<8,2) -MATRICE CHE MEMORIZZA LE COORDINATE DELLE 8 REGINE 

100 REM TITOLO ED INIZIRLIZZAZIONE COSTANTI C64 

110 PG*="LE OTTO REGINE" 

120 GOSUB 62000 

130 REM CONTROLLO CHE LA BASE DEL PROGRAMMA BASIC SIA ALLA LOCAZIONE 16384 
140 IF P£EK(44>=64 THEN GOTO 301 

150 REM AVVERTO CHE IL PROGRAMMA NON PUÒ' ANDARE IN ESECUZIONE 
160 PRINT "13" 

ATTENZIONE, HAI DIMENTICATO" 

MDI IMMETTERE I SEGUENTI COMANDI : “ 

MISai) POKE 44,64" 

MSB) POKE 16384,0" 

IMPRIMA DI IMMETTERLI RICORDA" 

MDI SALVARE IL PROGRAMMA, SE QUESTO" 

XNON E' GIÀ' PRESENTE SU NASTRO," 

XE POI DI RICARICARLO" 


170 PRINT 
180 PRINT 
190 PRINT 
200 PRINT 
210 PRINT 
220 PRINT 
230 PRINT 
240 PRINT 
280 END 

290 REM INIZIALIZZAZIONE E MASCHERA VIDEO 

300 REM CARICO IN MEMORIA ‘LE FIGURE DELLE 8 REGINE 

301 PRINT "ATTENDERE UN ATTIMO, PER FAVORE" 

310 FOR 1=0 TO 64*8-1 

320 READ A 

330 POKE 2048+1,A 

340 NEXT I 

350 REM INIZIALIZZO GLI 8 SPRITES 

360 FOR 1=0 TO 16 

370 POKE VI+1,0 

380 NEXT PREM LOCAZIONI 0,0 

390 POKE VI+21,0 : REM TUTTI SPENTI 

400 POKE VI+23,0 : REM NESSUNO ESPANSO IN VERTICALE 

410 POKE V1+29,0 : REM NESSUNO ESPANSO IN ORIZZONTALE 

420 POKE VI+27,0 : REM PRIORITÀ' AGLI SPRITE SULLO SFONDO 

430 POKE VI+28,0 ; REM SPRITE MONOCOLORI 

440 FOR 1=53287 TO 53294 

450 POKE 1,1-53285 

460 NEXT PREM HO ASSEGNATO I COLORI AGLI SPRITES 

461 REM INIZIALIZZO I PUNTATORI AGLI SPRITES 

462 FOR 1=0 TO 7 

463 POKE 2040+1,32+1 

464 NEXT I 

469 REM DISEGNO LA SCACCHIERA 

470 PRINT "9" '■ REM CARATTERI BIANCHI 
480 PRINT "J", 

500 QU*="8 rolli rolli rrH" REM QUADRATO 3*3 
510 FOR 1=1 TO 8 
515 FOR J=1 TO 8 

520 REM DEVO DISEGNARE 8 QUADRATI BIANCHI E NERI ALTERNATIVAMENTE 
530 CO*="T 

540 IF <J+I)-INT(<J+I)/2)*2=0 THEN C0*="l" 

550 PRINT CO*;QU*; 

560 NEXT J 
570 PRINT "MS" 

580 NEXT I 

590 REM HO DISEGNATO LA SCACCHIERA 
600 REM DIMENSIONO ARRAY 
610 DIM SP<8,2> 

620 REM INIZIALIZZO LE POSIZIONI DEGLI SPRITES 

630 SP<1,1)=220 : SPC1,2>=52 

640 SPC2,1)=220 : SPC2,2>=76 

650 SP<3,1)=220 : SPC3,2)=100 

660 SP<4,1>=220 : SP<4,2>=124 

670 SP<5,1>=220 : SP(5,2>=148 

680 SPC6,-1 >=220 ; SP(6,2>=172 

698 SPC7,1>=220SP(7,2>=196 

700 SP<8,1>=220 ; SP(8,2)=220 

710 REM POSIZIONO GLI SPRITES 

711 FOR R=1 TO 8 

712 GOSUB 9000 

713 NEXT R 

760 REM ACCENDO GLI SPRITES 
770 POKE VI+21,255 

780 REM GLI SPRITE POSSONO STARE DALLA POSIZIONE 28 ALLA 196 IN ORIZZONTALE 
790 REM E DALLA 52 ALLA 220 IN VERTICALE 
800 REM ORA INIZIA IL PROGRAMMA 
810 REM VISUALIZZO LA ZONA DI AIUTO 
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spiegazione dei comandi 
disponibili (linee 830+930), 
sono iniziatizzate le 
variabili di controllo (linea 
940) ed è atteso un 
comando (linea 960). 

Se l’utente chiede di 
selezionare una regina 
(linea 970), il controllo 
passa alla routine 8000, che 
verifica innanzitutto se c'è 
un'altra regina già in gioco 
ma non ancora posizionata 
(linea 8000), nel qual caso è 
visualizzato un messaggio 
(linea 8010) e si attende un 
altro comando. Altrimenti 
si chiede quale regina si 
intende selezionare (linee 
8060, 8070) e si controlla 
che il valore fornito 
corrisponda ad una delle 
otto figure disponibili (linea 
8110). 

Il programma visualizza 
poi il numero della regina 
scelta (linea 8180), pone a 
zero la variabile di 
controllo FI, che serve ad 
impedire di selezionare più 
di una regina alla volta 
(linea 8181), e torna ad 
attendere un comando. 

La possibilità di riportare 
una figura nella posizione 
di partenza è gestita dalla 
routine 11000 che, 
determinate le coordinate 
della casella in cui deve 
essere riposizionata la 
regina in base al suo 
numero (linee 11000, 11010), 
esegue il comando (linee 
11020, 11030). Sono poi 
poste a zero le variabili R 
(numero della regina 
selezionata) e CO. La prima 
serve anche ad abilitare i 
tasti che permettono lo 
spostamento nella 
scacchiera, e la seconda si 
usa per controllare se si è 
verificata una collisione, 
cioè uno scacco. Inoltre è 
posta ad uno la variabile 
FI (linea 11050). 

Qualora invece sia stato 
premuto il tasto F per 


820 PQKE 214, SPRINT 

830 PRINT SPC<28>;"P RITO" 

840 PRINT SPCC28),". BASSO" 

850 PRINT SPC<28>;“; DESTRA" 

860 PRINT SPC(28>;"L SINISTRA" 

870 PRINT "MS" ì SPCC28);"M MUOVI" 

880 PRINT SPCC31);“REGINA" 

890 PRINT "M";SPC<28>;"F FERMA" 

900 PRINT SPC<31>;"REGINA" 

910 PRINT "R",SPC<28>,"E FUORI" 

920 PRINT SPCC31);"REGINA" 

922 PRINT "»";SPCC28);"T TERMINA" 

924 PRINT SPCC31);"IL GIOCO" 

930 REM LA REGINA DA MUOVERE PER ORA NON ESISTE 

940 R=0:FI=1:CO»0 

950 REM LEGGO UN COMANDO 

960 GET IN* 

965 IF IN*="T" THEN GOSUB 13130 

970 IF IN*="M" THEN GOSUB 8000: IN*="" : GOTO 1010 

980 IF IN*="E" THEN GOSUB 11000 : IN*=' ,N : GOTO 1010 

990 IF IN*="F" THEN GOSUB 12000 :IN*="":IF CO=0 THEN GOSUB 13000 

1000 REM SE C'E' UNA REGINA DA SPOSTARE, LA SPOSTO 

1010 IF RO0 THEN GOSUB 10080 :GOSUB 9000 

1100 GOTO 960:REM LEGGO IL PROSSIMO COMANDO 

1200 0 IF FI=1 THEN RETURN 

7970 REM ROUTINE:CHIEDE IL NUMERO DELLA REGINA DA MUOVERE,SE E' POSSIBILE 
7980 REM FARLO, CIOÈ' SE SI E' FERMATA 
7990 REM LA REGINA MOSSA PRECEDENTEMENTE 

8000 IF FI=1 THEN GOTO 8050 

8001 POKE 214,23:PRINT 

8010 PRINT "«COMANDO NON ESEGUIBILE!"; 

8020 FOR 1=0 TO 1000 : NEXT I 
8030 POKE 214,23:PRINT 

8040 PRINT “ 

8041 RETURN 

8050 POKE 214,20:PRINT 

8060 PRINT SPC<28>;"REGINR DA" 

8070 PRINT "M";SPCC28>;"MUOVERE? 

8080 ZL=1-GOSUB 60000:PRINT 

8090 REM CONTROLLO CHE IL VALORE LETTO SIA CORRETTO 
8100 R=VALCIN*> 

8110 IF R<1 OR R>8 THEN GOTO 8050 
8120 REM LA REGINA DA MUOVERE E' LA R 
8130 POKE 214,20:PRINT 
8140 PRINT SPCC28);" 

8150 PRINT "M",SPCC28>;” 

8160 REM HO CANCELLATO LE VECCHIE SCRITTE 
8170 POKE 214,20:PRINT 

8180 PRINT SPCC28);“SREGINA";R;"S“ 

8181 FI=0 
8190 RETURN 

8990 REM ROUTINE:POSIZIONA LO SPRITE R 
9000 POKE VI+2*CR-1),SPCR, 1) 

9010 POKE VI+2*R-1,SPCR,2> 

9020 RETURN 

9990 REM ROUTINE:SPOSTO LA REGINA INDICATA DA R 
10000 A=P£EK<197) 

10010 IF A041 THEN GOTO 10030 

10015 IF SP<R,2»52 THEN SP<R,2)=SP<R,2)-24:RETURN:REM ALTO 
10020 RETURN:REM NESSUNO SPOSTAMENTO 
10030 IF 0044 THEN GOTO 10040 

10035 IF SPCR, 2X220 THEN SPCR, 2>=SPCR,2)+24:RETURN:REM BASSO 

10036 RETURN:REM NESSUNO SPOSTAMENTO 
10040 IF AO50 THEN GOTO 10050 

10045 IF SPCR,1X196 THEN SPCR,1>=SP<R,l)+24: RETURN:REM DESTRA 

10046 RETURN:REM NESSUNO SPOSTAMENTO 

10050 IF 0042 THEN RETURN:REM NESSUNO SPOSTAMENTO 

10055 IF SPCR, 1»28 THEN SPCR, 1>=SPCR, 1 >-24 : RETURN: REM SINISTRA 

10060 RETURN:REM NESSUNO SPOSTAMENTO 

10980 REM ROUTINE:METTE FUORI QUADRO LA REGINA R-ESIMA, SE E' LA ZERO NON 
10990 REM SUCCEDE NIENTE 

11000 POKE 214,20:PRINT:REM CANCELLO SCRITTA 'REGINA N' 

11001 PRINT SPCC28);" 

11009 SPCR, 1 >=220 

11010 SPCR,2>=52+CR-1>*24 
11020 POKE VI+2*CR-1),SPCR,1) 

11030 POKE VI+2*R-1,SPCR,2) 

11050 R=0 : FI=1 : CO=0 

11060 REM CANCELLO EVENTUALE SCRITTA DI COLLISIONE 
11070 POKE 214,23 PRINT 
11030 PRINT " 

11090 RETURN 

11980 REM ROUTINE : CONTROLLA CHE NON CI SIANO COLLISIONI,CI SI ENTRA SOLO 
11990 REM SE SI E' DEFINITA LA REGINA DA MUOVERE 

12000 IF FI=0 THEN GOTO 12009 

12001 REM SCRIVO 'COMANDO NON ESEGUIBILE' 

12002 POKE 214,23:PRINT 

12003 PRINT "(COMANDO NON ESEGUIBILE!"; 

12004 FOR 1=0 TO 1000 ; NEXT I■REM RITARDO 

12005 POKE 214,23:PRINT:REM CANCELLO LA SCRITTA 
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posizionare una regina, il 
programma chiama la 
routine 12000 (linea 990) 
che, posti in due variabili 
(X e Y) i valori delle 
coordinate della regina in 
gioco (linee 12090+12100), 
esegue le istruzioni 
necessarie a determinare se 
questa si trova sotto scacco 
(linee 12110, 12120). Se si 
verifica uno scacco è 
presentata la scritta 
«collisione» (linea 12170) e 
si dovrà continuare a 
muovere la regina in gioco 
fino ad individuare una 
casella non minacciata. 
Quando si riesce a 
posizionare la regina il 
programma pone a zero la 
variabile Re ad uno FI, per 
permettere una successiva 
selezione (linea 12130). 

Dopo aver posizionato la 
regina è chiamata la 
routine 13000, che controlla 
se è stato completato il 
gioco. In tal caso è 
visualizzata una scritta 
lampeggiante (linee 
13050+13120) prima di 
disattivare gli sprites che 
rappresentano le regine 
(linea 13130) e di porre fine 
all’esecuzione del 
programma. 

La routine che gestisce i 
comandi che permettono di 
muovere una regina sulla 
scacchiera è la 10000. 

Il programma la può 
chiamare solo se il valore 
della variabile R è diverso 
da zero, cioè solo se è stata 
selezionata una regina da 
mettere in gioco (linea 
1010). La routine inizia 
caricando nella variabile A 
il codice del tasto che è 
stato premuto, e determina 
in base al valore di A se e 
in che direzione è stato 
richiesto uno spostamento. 
Sono quindi calcolate le 
coordinate della nuova 
posizione che dovrà 
assumere la regina 


12006 PRINT ” 

12007 RETURN:REM TORNO ALLA FASE DI LETTURA COMANDI 

12009 POKE 214,23:PRINT 

12010 PRINT SPC<10>;" 

12020 REM HO CANCELLATO L'EVENTUALE SCRITTA DI COLLISIONE 

12021 CO=0 : REM NON CI SONO COLLISIONI 
12050 X=SP(R.1> 

12060 V=SP<R,2> 

12070 J=1 

12080 IF J=R THEN GOTO 12120 

12081 IF SPCJ,1»196 THEN GOTO 12120 
12090 X1=SPCJ,1> 

12100 V1=SP(J,2> 

12110 IF X=X1 OR V=Y1 OR ABS<X-X1 >=ABSCY-V1> THEN GOTO 12160REM COLLISIONE 
12120 J=J+1:IF J<9 THEN GOTO 12080 

12130 R=0:FI=1 

12131 REM CANCELLO LA SCRITTA 'REGINA N' 

12132 POKE 214,20’PRINT 

12133 PRINT SPCC28>;“ " 

12140 RETURN:REM NON CI SONO COLLISIONI 
12150 REM C'E' UNA COLLISIONE 

12160 POKE 214.23PRINT 

12170 PRINT SPCa0>; ,, snCOLLISlONEBi"; 

12180 C0=1 
12190 RETURN 

12980 REM ROUTINE:SE LE OTTO REGINE SONO SULLA SCACCHIERA, DATE LE CONDIZIONI 
12990 REM DI INGRESSO A QUESTA ROUTINE, IL SOLITARIO E' TERMINATO 
13000 1=1 

13010 IF SP<I,1>=220 THEN RETURN 
13020 1=1+1:IF I<9 THEN GOTO 13010 
13030 REM IL SOLITARIO E' TERMINATO 
13040 REM FACCIO LAMPEGGIARE 
13050 FOR 1=1 TO 100 
13060 POKE 214,23 PRINT 

13070 PRINT "BRAVO, HAI TERMINATO IL SOLITARIO."; 

13080 FOR J=1 TO 20 ; NEXT J 
13090 POKE 214,23:PRINT 

13100 PRINT "SBRAVO, HAI TERMINATO IL SOLITARIO.■"i 
13110 FOR J=1 TO 20 NEXT J 
13120 NEXT I 

13130 POKE VI+21,0 

13131 POKE 53280,14:POKE 53281,6 

13132 PRINT ".TOH" 

13140 END 

40990 REM REGINA 1 

50000 DATA 0,0,0,0,128,0,1,192,0.3 

50010 DATA 96,0,30,60,0,16,4,0,16,4 

50020 DATA 0,49,134,0,96,131,0,192,129,128 

50030 DATA 96,131,0,48,134,0,17.196,0,16 

50040 DATA 4,0,30,60,0,3,96,0,1,192 

50050 DATA 0,0,128,0,0,0,0,0,0,0 

50060 DATA 0,0,0,0 

50061 REM REGINA 2 

50070 DATA 0,0,0,0,128,0,1,192,0,3 
50080 DATA 96,0,30,60,0,16,4,0,16,4 
50090 DATA 0,48,198,0,97,35,0,192,33,128 
50100 DATA 96,67,0,48,134,0,17,228,0,16 
50110 DATA 4,0,30,60,0,3,96,0,1,192 
50120 DATA 0,0,128,0.0,0,0,0,0,0 

50130 DATA 0,0,0,0 

50131 REM REGINA 3 

50140 DATA 0,0,0,0,128,0,1,192,0,3 
50150 DATA 96,0,30,60,0,16,4,0,17,196 
50160 DATA 0,50,38,0,96,35,0,192,65,128 
50170 DATA 96,35,0,50,38,0,17,196,0,16 
50180 DATA 4,0,30,60,0,3,96,0,1,192 
50190 DATA 0,0,128,0,0,0,0,0,0,0 

50200 DATA 0,0,0,0 

50201 REM REGINA 4 

50210 DATA 0-0,0,0,128,0,1-192,0,3 
50220 DATA 96,0,30,60,0,16,4,0,16,132 
50230 DATA 0,49,6,0,97,3,0,194,1,128 
50240 DATA 98,3,0,52,70,0,23,228,0,16 
50250 DATA 68,0,30,60,0,3,96,0,1,192 
50260 DATA 0,0,128,0,0,0,0,0,0,0 

50270 DATA 0,0,0,0 

50271 REM REGINA 5 

50280 DATA 0,0,0,0,128,0,1,192,0,3 
50290 DATA 96,0,30,60,0,16,4,0,19,228 
50300 DATA 0,50,6,0,98,3,0,193,193,128 
50310 DATA 96,35,0,50,38,0,17,196,0,16 
50320 DATA 4,0,30,60,0,3,96,0,1,192 
50330 DATA 0,0,128,0,0,0,0,0,0,0 

50340 DATA 0,0,0,0 

50341 REM REGINA 6 

50350 DATA 0,0,0,0,128,0,1,192,0,3 
50360 DATA 96,0,30,60,0,16,4,0,17,196 
50370 DATA 0,50,38,0,98,3,0,193,193,128 
50380 DATA 98,35,0,50,38,0,17,196,0,16 
50390 DATA 4,0,30,60,0,3,96,0,1,192 
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aggiungendo o sottraendo 
24 alle coordinate della 
posizione attuale (24 è il 
numero di bits che separa i 
centri di due caselle 
adiacenti; infatti ogni 
casella è costituita da 3x3 
caratteri e ogni carattere da 
8x8 bits). Si sottrae 24 alla 
coordinata Y per 
determinare uno 
spostamento di una casella 
verso l'alto (linea 10015), e 
lo si somma alla medesima 
coordinata per uno 
spostamento verso il basso 
(linea 10035). Per effettuare 
uno spostamento verso 
destra si somma 24 alla 
coordinata X (linea 10045) e 

10 si sottrae per effettuarlo 
verso sinistra (linea 10055). 

11 programma poi chiama 
nuovamente la routine 9000 
per visualizzare lo sprite 
nella nuova posizione. 


50400 DATA 0.0,128,0,0,0,0,0,0,0 

50410 DATA 0,0,0,0 

50411 REM REGINA 7 

50420 DATA 0,0,0,0,128,0,1,192,0,3 
50430 DATA 96,0,30,60,0,16,4,0,17,244 
50440 DATA 0,48,22,0,96,35,0,192,65,128 
50450 DATA 96,67,0,48,134,0,16,132,0,16 
50460 DATA 4,0,30,60,0,3,96,0,1,192 
50470 DATA 0,0,128,0,0,0,0,0,0,0 

50480 DATA 0,0,0,0 

50481 REM REGINA 8 

50490 DATA 0,0,0,0,128,0,1,192,0,3 
50500 DATA 96,0,30,60,0,16,4,0,17,196 
50510 DATA 0,50,38,0,98,35,0,193,193,128 
50520 DATA 98,35,0,50,38,0,17,196,0,16 
50530 DATA 4,0,30,60,0,3,96,0,1,192 
50540 DATA 0,0,128,0,0,0,0,0,0,0 
50550 DATA 0,0,8,0 

59920 REM ROUTINE CESTISCE L'INPUT DI UNA STRINGA ALFANUMERICA 
59930 REM LE VARIABILI UTILIZZATE SONO:Z6,Z7,Z8,Z9,Z8*,IN* 

59940 REM IN INGRESSO VUOLE IL VALORE ZL CHE E' LA LUNGHEZZA MASSIMA DELLA 
59950 REM STRINGA DA LEGGERE 

59960 REM IN USCITA DA' LA STRINGA LETTA IN IN* E LA SUA LUNGHEZZA IN Z9 

59980 REM CANCELLO LA ZONA DI SCHERMO IN CUI VERRÀ' DIGITATA LA STRINGA 

60000 FOR Z8=l TO ZL: PRINT " ", NEXT 28 

60010 FOR Z8=l TO ZL: PRINT "ll";:NEXT Z3 

60020 IN*="" : Z7=TI 

60040 REM LEGGO UN CARATTERE 

60060 GET Z8* IF Z8*0"" THEN 60160 

60080 REM ACCENSIONE E SPEGNIMENTO DEL' CURSORE 

60100 IF Z7CTI AND N0TCZ6) THEN PRINT "mi", Z6=N0T(Z6; Z7=TI + 15 

60110 IF Z7CTI AND Z6 THEN PRINT " II” ; : Z6=N0T(Z6> : Z7=TI+15 

60120 GOTO 60060 

60140 REM E' STATO DIGITATO UN CARATTERE 
60160 Z8=flSC(Z8*):Z9=LEN<IN*> 

60180 REM SE NON E' UN CARATTERE ALFANUMERICO, DEVE ESSERE UN RETURN 0 DELETE 

60200 IF NOT((Z8>47 AND Z8C581 OR <Z8>64 AND Z3<91>> THEN GOTO 60320 

60220 REM CONTROLLO CHE NON SIA STHTA SUPERATA LA LUNGHEZZA MASSIMA 

60240 IF Z9=ZL THEN GOTO 60060 

60260 REM LO AGGIUNGO ALLA STRINGA IN* 

60280 IN*=IN*+Z8* PRINT Z8*;:G0T0 60060 

60300 REM SE E' UN RETURN, HO TERMINATO LA LETTURA 

60320 IF Z8=13 THEN PRINT " II";:RETURN 

60340 REM SE E' DELETE, CANCELLO IN IN* E SUL VIDEO L' ULTIMO CARATTERE DIGITATO 
60360 IF Z8=20 AND Z9>0 THEN IN*=LEFT*<IN*,Z9-1):PRINT " HI",: GOTO 60060 
60370 GOTO 60060 

60960 REM ROUTINE:INIZIALIZZAZIONE COSTANTI 

60980 REM CIRCUITO VIDEO 

61000 VI =53248 

61020 REM CIRCUITO SUONO 

61040 SI=54272 

61060 REM MEMORIA VIDEO 

61080 MV=1024 

61100 REM MEMORIA COLORE 

61120 MC=55296 

61140 REM COSTANTI DI USO COMUNE 
61160 ZL=9 

61180 REM INIZIALIZZAZIONE CHIP SUONO 

61200 FOR 1=0 TO 24 

61210 POKE SI+1,0 

61220 NEXT I 

61230 RETURN 

61980 REM ROUTINE STAMPA IL TITOLO DEL PROGRAMMA MEMORIZZATO IN PG* 

62000 GOSUB 61000 
62010 POKE VI+32,15 
62020 POKE VI+33,15 
62030 PRINT "rUMMO"; 

62040 PRINT TAB(6 );"r -V 

62050 FOR 1 = 1 TO 5 

62060 PRINT TAB<6 >;"I |" 

62070 NEXT I 

62080 PRINT TAB<6>; “ 1 -- 

62090 PRINT TABC6), " WMUWISiriGITA SRETURNS PER PROSEGUIRE" 

62100 PRINT "SKWKir 
62110 FOR 1 = 1 TO 5 
62120 PRINT TAB<7>; 

62130 FOR J=1 TO 26 
52140 PRINT "33 
52150 NEXT J 
62160 PRINT 
62170 NEXT I 

62190 REM ORA SCRIVO IL TITOLO 

62210 PRINT "WBBBKIW1" ; TABC (40-LEN(PG*) >/2> ; " SH" ; PG* 

62220 GET Z9* 

62230 IF Z9*OCHR*(13> THEN GOTO 62220 
62240 PRINT "Ha"; 

62250 RETURN 
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20 programmi 
assolutamente nuovi 
ed inediti 

per disegnare, calcolare, 
scrivere, giocare, 
catalogare, ricordare 
e studiare col computer... 
ma soprattutto 
per imparare 
come funziona 
e come si programma 
il tuo Commodore 64. 














